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PREFACE 



This manual 
sections. Secti 
describes the 
compiler and it 
ating system, 
functions and 
compiler. Secti 
flowcharts that 
the routines of 
in this section 
ies. 



is organized into three 
on 1 is an introduction and 
overall structure of the 
s relationship to the oper- 

Section 2 discusses the 
logic of each phase of the 
on 3 includes a series of 
show the relationship among 

each phase. Also provided 
are phase routine director- 



Appendixes at the end of this publica- 
tion provide information pertaining to: 
(1) source statement scan, (2) intermediate 
text formats, (3) table formats, (U) main 
storage allocation, etc. 

Prerequisite to the use of this publica- 
tion are: 

IBM System/360 Operating System: Princi- 
ples of Operation , Form A22-6821 

IBM System/360 Operating System; FORTRAN 
IV (E) Language , Form C28-6513 

IBM System/3 60 Operating System: Intro- 
duction to Control Program Logic, Pro- 
gram Logic Manual , Form Y28-6605 

IBM System/360 Operating System; FORTRAN 
IV (E) Programmer's Guide , Form C28-6603 
(sections "Job Processing" and 
"Cataloged Procedures") 



Although not prerequisite, the following 
documents are related to this publication: 



IBM System/360 Operating System; FORTRAN 
IV (E) Library Subprograms , Form 
C28-6596 



IBM System/360 Operating System; Seguen- 
tial Access Methods, Program Logic Manu- 
al. Form Y28-660U 



IBM System/360 Operating System: Con- 
cepts and Facilities , Form C28-6535 



IBM Systero/360 Operating System; Control 
Program Services , Form C28-6541 

IBM System/360 Operating System; Linkage 
Editor, Program Logic Manual , Form 
Y28-6610 

IBM System/360 Operating System; Data 
Management , Form C28-6537 

IBM System/360 Operating System; System 
Generation, Form C28-6554 



This compiler is similar in design to 
the IBM System/360 Basic Programming Sup- 
port FORTRAN IV Compiler. 
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Z28-6601-0) . Significant changes have been made throughout the text. 
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Significant changes or additions to the specifications contained in this 
publication will be reported in subsequent revisions or Technical 
Newsletters. 
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SECTION 1: INTRODUCTION 



The IBM Systeiri/360 Operating System 
FORTRAN IV (E) coitipiler analyzes source 
modules written in the FORTRAN IV (E) 
language and transforms them into object 
modules suitable for input to the linkage 
editor for subsequent execution on the IBM 
System/360. If the compiler detects errors 
in the source module, appropriate error 
messages are produced. 



THE COMPILER AND OPERATING SYSTEM/360 



The FORTRAN IV (E) compiler is a pro- 
cessing program of the IBM System/360 Oper- 
ating System. As a processing program, the 
compiler communicates with the operating 
system control program for input/output and 
other services. A general description of 
the control program is given in the publi- 
cation IBM System/360 Operating System: 
Introduction to Control Program Logic, Pro- 
gram Logic Manual . 

A compilation, or batch of compilations, 
is introduced as a job step under the 
control of the operating system via the job 
statement (JOB) , the execute statement 
(EXEC) , and the data definition statements 
(DD) for the input/output data sets. To 
keep these statements at a minimum (in the 
input job stream) , cataloged procedures are 
provided. A discussion of the introduction 
of a FORTRAN IV (E) compilation as a job 
step and of the available cataloged proce- 
dures is given in the publication IBM 
Svstem/360 Operating System; FORTRAN IV (E) 
Programmer's Guide . 

The compiler initially receives control 
from a calling program of the operating 
system (e.g., the initiator/terminator) by 
means of a supervisor-assisted linkage. 
Once the compiler receives control, it 
maintains communication with the operating 
system through: 

• The interface module 

• System macro- instructions 



THE INTERFACE MODULE 



The interface module, a component of the 
FORTRAN IV (E) compiler, resides on the 
operating system library (SYSl.LINKLIB) . 



When the compiler receives control, it 
loads, via the LOAD macro-instruction, the 
interface module into main storage where it 
remains throughout the job step. The 
interface module processes all input/output 
requests of the compiler. The requests are 
initiated by a linkage to the interface 
module. The parameters necessary for I/O 
operations are passed to the interface 
module via this linkage. The interface 
module then links to the BSAM (basic 
sequential access method) read/write rou- 
tine via the READ/WRITE macro-instruction. 
(A description of BSAM and the correspond- 
ing read/write routines is given in the 
publication IBM System/360 Operating Sys- 
tem; Sequential Access Methods, Program 
Logic Manual . ) 



SYSTEM MACRO- INSTRUCT IONS 



Whenever the XCTI, LOAD, DELETE, OPEN, 
CLOSE, READ, WRITE, CHECK, RDJFCB, GETMAIN, 
FREEMAIN, BLDL, SPIE, or TIME macro- 
instruction is issued, control is given 
directly to the operating system to execute 
the requested service. 

When the job step (a single compilation 
or batch of compilations) is terminated, 
control is returned to the calling program 
via the RETURN macro-instruction. 



COMPILER ORGANIZATION 



The FORTRAN IV (E) compiler consists of 
several components, each of which exists as 
a separate load module on the operating 
system library (SYSl.LINKLIB). The 
components are; 

• Phases (1, 7, lOD, lOE, 12, IH, 15, 20, 
25, and 30) . 

• Interludes (lOE, lU, and 15). 

• Performance module. 

• Interface module. 

• Print buffer module. 

• Source symbol module. 

• Object listing module. 

The compiler components and their major 
functions are shown in Table 1. 
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Table 1. Compiler Components and Their Major Functions 



COMPONENT 



Phase 1 
(lEJFAAAO) 



Interface 

module 

(lEJFAGAO) 



Print buffer 

module 

(lEJFAKAO) 



Performance 

module 

(lEJFAPAO) 



Phase 7 
(lEJFEAAO) 



Phase lOD 
(lEJFGAAO) 



Phase lOE 
(lEJFJAAO) 



Interlude lOE 
(lEJFJGAO) 



Phase 12 
(lEJFLAAO) 



MAIN FUNCTION (s) 



initializes compiler 



processes compiler I/O 
requests for all compila- 
tions, and end-of -phase/ 
interlude requests for 
SPACE compilations 



contains two I/O buffers 
that are used for the 
SYSIN and SYSPRINT data 
sets 
^ 

reduces compilation time 
(loaded into main storage 
and executed only for 
PRFRM option) ; deblocks 
compiler input and blocks 
compiler output if block- 
ing is specified; and 
processes end-of-phase 
requests for PRFRM compi- 
lations 



obtains and allocates main 
storage for resident 
tables and internal text 
buffers. (If the PRFRM 
option and blocking are 
specified. Phase 7 also 
obtains and allocates main 
storage for I/O buffers to 
be used by the block/ 
deblock routine of the 
performance module.) 



transforms nonexecutable 
statements into intermedi- 
ate text 



transforms executable 
statements into intermedi- 
ate text 



opens data control blocks 
required by Phases 12 and 
14 (executed only for 
SPACE compilations) 



processes COMMON and 
EQUIVALENCE Statements, 
and assigns relative 
addresses to variables and 
constants 



COMPONENT 



Phase lU 
(lEJFNAAO) 



Interlude 14 
(lEJFNGAO) 



Phase 15 
(lEJFPAAO) 



Interlude 15 
(lEJFPGAO) 



Phase 20 
(lEJFRAAO) 



Phase 25 
(lEJFVAAO) 



Source symbol 
module 
(lEJFAXAO) 



Object listing 

module 

(lEJFVCAO) 



Phase 30 
(lEJFXAAO) 



Phase 1 
(lEJFAABO) 



MAIN FUNCTION (S) 



processes FORMAT and READ/ 
WRITE Statements 



provides additional main 
storage for Phase 15 
(executed only for SPACE 
compilations ) 



processes 
expressions 



arithmetic 



ensures that BSAM routines 
required in subsequent 
phases are present 
(executed only for SPACE 
compilations) 



optimizes 
expressions 



subscript 



generates object coding 



+- 



used by Phase 12 to con- 
tain the names of all var- 
iables and constants used 
in the source modules and 
their relative addresses 
(loaded into main storage 
only if the object listing 
option is specified and if 
the object listing facili- 
ty is enabled) 



used by Phase 25 to gener- 
ate the object module 
listing (loaded into main 
storage only if the object 
listing option is speci- 
fied and if the object 
listing facility is 
enabled) 



generates error/warning 
messages and processes the 
END statement 



terminates compilation (in 
the case of a batch compi-r 
lation. Phase 1 performs 
transitional processing to 
initiate the next 
compilation) 



COMMUNICATION AMONG COMPILER PHASES 



COMPILER CONTROL FLOW 



When a compiler is divided into more 
than one phase, communication among the 
phases is required. Communication among 
the phases of the FORTRAN IV (E) compiler 
is implemented via: 

• The communication area. 

• Intermediate text. 

• Resident tables. 



If the SPACE option is specified by the 
user, control is passed among the compo- 
nents of the compiler via the interface 
module. After each component has been 
executed, that component branches to the 
interface module with the name of the 
component to be executed next. The inter- 
face module then issues an XCTL (transfer 
control) macro- instruction to the next com- 
ponent. 



THE COMMUNICATION AREA 



The communication area (FCOMM) is a 
central gathering area (a portion of the 
interface module) for information common to 
the phases. It is used to communicate this 
information, when necessary, among the 
phases. 



INTERMEDIATE TEXT 



If the PRFRM option is specified by the 
user, control is passed among the compo- 
nents of the ccm.piler via the performance 
m.odule. After each component has been 
executed, that component branches to the 
performance module with the name of the 
component to be executed next. If the next 
component is an interlude, the performance 
module bypasses the execution of the inter- 
lude and transfers control, via the XCTL 
macro-instruction, to the next phase of the 
compiler. If the next component is a 
phase, the performance module immediately 
transfers control to that phase. 



Source module statements (executable and 
nonexecutable) are converted into an inter- 
nal text format (intermediate text). This 
intermediate text, once it is created, is 
used as input to the subsequent phases of 
the compiler. This text is eventually 
transformed into machine language instruc- 
tions. 



RESIDENT TABLES 



The resident tables are the dictionary, 
the overflow table, the segment address 
list (SEGMAL), the patch table, the block- 
ing table,, and the BLDL table. The dic- 
tionary is a reference area containing 
information about variables, arrays, con- 
stants, and data set reference numbers used 
in the source module. The overflow table 
contains all dimension, subscript, and 
statement number information within the 
source module- SEGMAL is used for main 
storage allocation within the compiler. 
The patch table contains information to be 
used to modify compiler components. The 
blocking table contains information neces- 
sary for deblocking compiler input and 
blocking compiler output for PRFRM compila- 
tions. The BLDL table provides the infor- 
mation necessary for transferring control 
from one component to the next for PRFRM 
compilations. (The blocking table and the 
BLDL table reside in main storage only for 
PRFRM compilations.) 



Note; The interludes are only executed if 
the SPACE option is specified by the user. 
(The SPACE option is chosen by the user if 
the amount of main storage that is avail- 
able for compilation is limited.) Each 
interlude first closes the data control 
blocks for all the data sets that are open, 
and then opens only those for the data sets 
that are required by subsequent phases. 
This process decreases the size of the 
currently required BSAM routines and pro- 
vides the additional main storage necessary 
to compile source modules in an environment 
in which the amount of available main 
storage is limited. 

The performance module is loaded into 
main storage and executed only if the PRFRM 
option is specified by the user. (The 
PRFRM option is chosen by the user if he 
desires maximum compiler efficiency, and if 
the amount of available main storage is not 
a limitation. ) A PRFRM compilation elimi- 
nates the execution of the interludes. The 
execution of the interludes can be bypassed 
because enough main storage is available to 
allow Phase 1 to initially open the data 
control blocks for all the data sets that 
are required for the entire compilation. 
The data control blocks are closed only at 
the end of the compilation. Bypassing the 
execution of the interludes decreases com- 
pilation time and therefore, increases 
overall compiler efficiency. 



The overall compiler 
illustrated in Chart 00. 



control flow is 
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Chart 00. Overall Compiler Control Flow 
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COMPILER INPUT/OUTPUT FLOW 



The source modules to be compiled are 
read into main storage by the compiler from, 
the SYSIN data set. The compiler uses 
SYSUTl and SYSUT2 as intermediate work data 
sets. (If the buffers used for reading and 
writing on these work data sets are large 
enough to contain the source module, then 
this data is retained in main storage.) 
The SYSLIN, . SYSPRINT, and SYSPUNCH data 



sets are used for the output of the compi- 
lation. (SYSLIN is used only if the LOAD 
option is specified; SYSPUNCH is used only 
if the DECK option is specified.) 

Figure 1 shows the compiler input/output 
structure. 

Figure 2 shows the compiler input/output 
flow and includes intermediate input to and 
intermediate output from the various phases 
of the compiler. 
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Figure 1. Compiler Input/Output Structure 
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COMPILER OUTPUT — THE OBJECT MODULE 



The object module compiled from the 
FORTRAN source module is not constructed in 
its entirety by any one phase; the various 
components of the object module are gener- 
ated throughout the compilation. Figure 3 
indicates what each phase contributes to 
the generation of the object module. An 
object module is created for use as input 
to the linkage editor, which prepares 
object modules for execution on the IBM 
System/360. 



An object module consists of control 
dictionaries (external symbol dictionary 
and relocation dictionary), text, and an 
END statement. The external symbol dic- 
tionary (ESD) contains the external symbols 
that are defined or referred to in the 
module. The relocation dictionary (RLD) 
contains information about address con- 
stants in the object module. (An address 
constant designates the relative storage 
address into which the address of a rou- 
tine, library subprogram, or symbol is to 
be relocated.) The text (TXT) contains the 
instructions and data of the object module. 
The END statement indicates the end of the 
object module. 

The object module, after being processed 
by the linkage editor, is executed on the 
IBM System/360 in conjunction with the 
following members of the FORTRAN system 
library (SYSl.FORTLIB) : 

• IHCFCOME 

• IHCFIOSH 

IHCFCOME performs object-time implemen- 
tation of the following FORTRAN statements: 



• READ and WRITE 

• BACKSPACE, REWIND, and ENDFILE 

• STOP and PAUSE 

In addition, IHCFCOME converts input and 
output data into the formats indicated by 
the FORMAT statements. IHCFCOME also proc- 
esses object-time errors and arithmetic- 
type program interruptions and terminates 
the execution of the load module. 

IHCFCOME itself does not actually 
perform the reading from and writing onto 
data sets, or I/O device manipulations; it 
submits requests for such operations to 
IHCFIOSH (the FORTRAN Input/Output System) . 
IHCFIOSH interprets these requests and sub- 
mits them to the appropriate BSAM routines 
for execution. 



COMPILER COMPONENTS 



The components of the compiler and their 
main functions are discussed in the follow- 
ing paragraphs. 



PHASE 1 



Phase 1 is both the first and last phase 
of the compiler. Initially, the phase is 
entered from the calling program (e.g., 
initiator/terminator) ; subsequent entries 
are made from either Phase 7 or Phase 30. 
In addition, if a permanent I/O error 
occurs. Phase 1 is entered from the phase 
that requested the I/O operation. 



Phase 
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Figure 3. Creation of Object Module 
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At the initial entry. Phase 1 performs 
compiler initialization; that is, it loads 
the interface module and the print buffer 
module into main storage; processes compil- 
er options; loads the PRFRM module into 
main storage if the PRFRM option is speci- 
fied and if the value specified in the SIZE 
option is at least 17504; opens required 
data control blocks; and loads Phase 7 into 
main storage. Upon completion of the ini- 
tial Phase 1 processing, control is passed 
to Phase 7. 



The blocking table, which provides the 
I/O routine with the information neces- 
sary to deblock compiler input and to 
block compiler output. 

The BLDL table, which provides the 
end-of-phase routine with the informa- 
tion necessary to transfer control from 
one component of the compiler to the 
next. 



At subsequent entries. Phase 1 initiates 
a new compilation if another source module 
exists, or alternatively terminates the 
compilation if no more input is present. 
Control is passed to Phase 7 or returned to 
the calling program, as appropriate. 



INTERFACE MODDLE 



The interface module contains: 

• The communication area (required for 
compiler communication) . 

• The data control blocks and data event 
control blocks for the data sets used 
during a compilation (required for I/O 
operations) . 

► The interface routines (required for 
implementation of compiler I/O requests 
and end-of-phase requests, and for tem- 
porary modification of compiler 
components) . 



PRINT BUFFER MODULE 



The print buffer module contains two I/O 
buffers that are used for the SYSIN and 
SYSPRINT data sets. 



PHASE 7 



For both SPACE and PRFRM compilations. 
Phase 7 obtains and allocates main storage 
for the dictionary, the overflow table, and 
four internal text buffers. For PRFRM 
com.pilations. Phase 7 also obtains and 
allocates main storage for special I/O 
buffers to be used for deblocking compiler 
input and for blocking compiler output if 
blocking is specified by the user. 

After main storage is obtained and allo- 
cated. Phase 7 constructs the resident 
tables to be used by the compiler. 

Upon completion of Phase 7 processing 
control is passed either to Phase lOD or to 
Phase 1. 



PHASE lOD 



Phase lOD converts COMMON and EQUIVA- 
LENCE source statements into a special form 
of intermediate text (referred to as COMMON 
and EQUIVALENCE intermediate text) for pro- 
cessing by Phase 12. In addition. Phase 
lOD prepares intermediate text and creates 
dictionary and overflow table entries for 
specification, FORMAT, SUBROUTINE, and 
FUNCTION statements for use as input to 
subsequent phases of the compiler. If the 
SOURCE option is specified. Phase lOD pre- 
pares a list of the statements it processes 
and writes them on the SYSPRINT data set. 



PERFORMANCE MODULE 



The performance module, loaded into main 
storage only if the PRFRM option is speci- 
fied, contains: 

• An I/O routine, which deblocks compiler 
input and blocks compiler output for 
PRFRM compilations. 

• An end-of-phase routine, which controls 
the transferring of control from one 
component of the compiler to the next 
for PRFRM compilations. 



Upon completion of Phase lOD processing, 
control is passed to Phase lOE. 



PHASE lOE 



Phase lOE converts statement function 
definitions, executable statements, and any 
FORMAT statements interspersed within those 
statements into intermediate text, which is 
used as input to subsequent phases of the 
compiler. During the processing of the 
above statements, entries are made into the 
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dictionary and overflow table for the vari- 
ables, statement numbers, etc., encountered 
in the statements. If the SOURCE option is 
specified. Phase lOE also prepares a list 
of the statements it encounters and writes 
them on the SYSPRINT data set immediately 
following the list prepared by Phase lOD. 



Upon completion of Phase lOE processing, 
control is passed either to Interlude lOE 
for SPACE compilations, or to Phase 12 for 
PRFRM compilations. 



PHASE 14 



Phase 14 reads the intermediate text 
created by Phases lOD and lOE and replaces 
any pointers to dictionary entries with 
information obtained from the dictionary 
(e.g., with addresses assigned to variables 
by Phase 12) . Phase 14 also converts 
intermediate text for FORMAT statements 
into an internal code that is used, at 
object time, by IHCFCOME, a member of the 
FORTRAN system library (SYSl.FORTLIB) , to 
place input/output records into the speci- 
fied formats. 



INTERLUDE lOE 



Interlude lOE closes and then opens the 
appropriate data control blocks so that 
only the BSAM input/output routines 
required by Phases 12 and 14 are present in 
as compact an area of main storage as 
possible. These routines were not called 
in earlier because storage for them did not 
exist during the execution of Phases lOD 
and lOE. 

Upon completion of Interlude lOE pro- 
cessing, control is passed to Phase 12. 



TXT card images for FORMAT statements 
are generated and then written on the 
SYSLIN data set if the LOAD option is 
specified and/or the SYSPUNCH data set if 
the DECK option is specified. In addition. 
Phase 14 assigns a position in a second 
branch list table for each statement func- 
tion (SF) expansion and DO statement 
encountered. For SPACE compilations. Phase 
14 also frees the storage occupied by the 
dictionary. (The dictionary is no longer 
needed after Phase 14 processing.) 

Upon completion of Phase 14 processing, 
control is passed either to Interlude 14 
for SPACE compilations, or to Phase 12 for 
PRFRM compilations. 



INTERLUDE 14 



PHASE 12 



Phase 12 assigns relative addresses to 
symbols entered in the dictionary, overflow 
table, and COMMON and EQUIVALENCE text. 
The addresses assigned at this time indi- 
cate the relative addresses at which the 
various symbols will reside in main storage 
during execution of the load module (i.e., 
the object module after it has been pro- 
cessed by the linkage editor). Phase 12 
also allocates storage for a branch list 
table for referenced statement numbers and 
assigns a relative number to each ref- 
erenced statement number it encounters. 
Phase 12 generates and then writes ESD and 
RLD card images for referenced subprograms, 
and TXT card images for literals on the 
SYSLIN data set if the LOAD option is 
specified and/or the SYSPUNCH data set if 
the DECK option is specified. In addition, 
if the MAP option is specified. Phase 12 
produces a storage map on the SYSPRINT data 
set of all symbols and literals and their 
relative addresses. 

Upon completion of Phase 12 processing, 
control is passed to Phase 14. 



Interlude 14, by closing and then open- 
ing the appropriate data control blocks, 
reduces the size of the currently required 
BSAM input/output routines. This reduc- 
tion, as well as the freeing of the dic- 
tionary area of storage by Phase 14, pro- 
vides the additional main storage that may 
be needed for subsequent processing. 

Upon completion of Interlude 14 process- 
ing, control is passed to Phase 15. 



PHASE 15 



Phase 15 primarily translates arithmetic 
expressions into approximate machine code; 
that is, it produces the data necessary to 
allow text words to be translated into 
machine instructions by Phase 25. 

Upon completion of Phase 15 processing, 
control is passed either to Interlude 15 
for SPACE compilations, or to Phase 20 for 
PRFRM compilations. 
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INTERLUDE 15 



Interlude 15, by closing and then open- 
ing the appropriate data control blocks, 
calls in the BSAM input/output routines 
necessary for perforrring the I/O operations 
for the remainder of the compilation. 

Upon completion of Interlude 15 process- 
ing, control is passed to Phase 20. 



expansions and DO statements, and a base 
value table) required for the execution of 
the instructions generated by the phase. 
In addition, if the MAP option is speci- 
fied. Phase 25 produces a list of the 
referenced statement numbers on the SYS- 
PRINT data set. 

Upon completion of Phase 25 processing, 
control is passed to Phase 30 to generate 
error/warning messages if necessary, and to 
process the END statement. 



PHASE 20 



SOURCE SYMBOL MODULE 



Phase 20 increases the efficiency of the 
object coding by decreasing the amount of 
computation associated with subscript 
expressions. Phase 20 also creates an 
argument list table to be used, at object 
time, to provide the addresses of argument 
lists to subprograms and SFs referenced by 
the source module. Generated are: ESD card 
images for any implicitly called library 
subprograms (refer to the publication IBM 
System/360 Operating System; FORTRAN IV (E) 
Library Subprograms ) ; and RLD and TXT card 
images for any literals generated by the 
phase and for each entry in the argument 
list table. These are then written on the 
SYSLIN data set if the LOAD option is 
specified and/or the SYSPUNCH data set if 
the DECK option is specified. In addition, 
if the MAP option is specified. Phase 20 
produces a storage map of the above gener- 
ated literals and references on the SYS- 
PRINT data set. 

Upon completion of Phase 20 processing, 
if the NOLOAD option is specified and 
source statement errors were detected, con- 
trol is passed to Phase 30 to generate 
error/warning messages; otherwise, control 
is passed to Phase 25. 



PHASE 25 



Phase 25 analyzes the text produced by 
the preceding phases of the compiler and 
transforms that text into machine language 
instructions; these instructions become 
suitable for execution on the IBM 
System/360 after being processed by the 
linkage editor. The instructions are gen- 
erated and written on the SYSLIN data set 
if the LOAD option is specified and/or the 
SYSPUNCH data set if the DECK option is 
specified. Phase 25 completes the assembly 
of several tables (branch list table for 
statement numbers, branch list table for SF 



The source symbol 
contain the names of 
constants used in the 
relative addresses 
Phase 12. Phase 25 
module to produce an 
if the user specif 
option ($) and if the 
ity is enabled. 



module is used to 

all the variables and 

source module and the 

assigned to them by 

uses the source symbol 

object module listing 

ies the object listing 

object listing facil- 



OBJECT LISTING MODULE 



The object listing module is loaded into 
main storage by Phase 25. It is used by 
Phase 25 to generate the object module 
listing, if the user specifies the object 
listing option ($) and if the object list- 
ing facility is enabled. 



PHASE 30 



Phase 30 may be entered from Phase 20 or 
from Phase 25. When Phase 30 is entered 
from Phase 20 or Phase 25, any 
error/warning messages are generated by 
examining the output text of the preceding 
phases. Phase 30 also lists the size of 
COMMON (in bytes) , and the size of the 
object module (in bytes) on the SYSPRINT 
data set. In addition, if Phase 30 is 
entered from Phase 25, Phase 30 processes 
the END statement. This entails generating 
and writing TXT and RLD card images for the 
branch list tables, the base value table, 
and the END card image on the SYSLIN data 
set if the LOAD option is specified and/or 
the SYSPUNCH data set if the DECK option is 
specified. 



Upon completion of Phase 30 
control is passed to Phase 1. 



processing, 
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Section 2 describes the logic and func- 
tions of each phase of the compiler. 



PHASE 1 (lEJFAAAO/IEJFAABO) 



SECTION 2: DISCUSSION OF COMPILER PHASES 



Loading the Interface Module 



When Phase 1 receives control from the 
calling program, it loads the interface 
module (lEJFAGAO) into main storage via the 
LOAD macro- instruction. The interface 
module contains: 



Phase 1 is both the first and last phase 
to be executed for each compilation. The 
phase is initially entered from a calling 
program (e.g., the initiator/terminator); 
subsequent entries are made from either 
Phase 7 if a PFRFM compilation is altered 
to a SPACE compilation (restart condition), 
or from Phase 3 — the last processing 
phase of the compiler. 



At the initial entry (lEJFAAAO) , Phase 1 
initiates the first compilation and then 
transfers control to Phase 7. 

At subsequent entries (lEvJFAABO), Phase 
1 either initiates the next compilation if 
other source modules are to be compiled, or 
terminates the compilation (i.e., if no 
more source modules are present) . If a new 
compilation is initiated. Phase 1 transfers 
control to Phase 7; if the compilation is 
terminated. Phase 1 returns control to the 
calling program. 



Chart 01 illustrates the overall logic 
and the relationship among the routines 
used in Phase 1. Table 2, the routine 
directory, lists the routines used in the 
phase and their functions. 



The communication area. 
DCBs (data control blocks) 
(data event control blocks). 
Interface routines. 



and DECBs 



INITIAL ENTRY 



At the initial entry. Phase 1 initiates 
the first compilation. This entails: 

• loading the interface module. 

• Loading the print buffer module. 

• Processing compiler options. 

• Loading the performance module if the 
PRFRM option is specified and if the 
value specified in the SIZE option is 
at least 17504. 

• Opening required data control blocks. 

• Loading Phase 7. 



COMMUNICATION AREA; The communication area 
contains information that must be communi- 
cated between the various components of the 
compiler. The communication area contains 
the following type of information: 



• User-specified information, that is, 
options and parameters chosen by the 
user to tailor the output of a compila- 
tion to his specifications (e.g., 
DECK) . 

• Default values for compiler options. 
The interface module is assembled, and 
processed by the linkage editor during 
system generation. This allows the 
user to specify default values for 
compiler options (refer to the publica- 
tion IBM Svstem/3 60 Operating System: 
System Generation ) . These default 
values will be assumed if the corres- 
ponding values in the FARM field of the 
EXEC statement for a FORTRAN compila- 
tion are not included by the user. 
(Refer to Appendix K for the default 
values that may be specified during the 
system generation process.) 

• Information required for communication 
between the compiler and the operating 
system, such as: 

1. Branch instructions to specific 
routines in the interface module. 
(For PRFRM compilations, these 
branch instructions are, in effect, 
replaced by branch instructions to 
routines in the performance 
module. ) 

2. A pointer to DCBs (data control 
blocks) and the DECBs (data event 
control blocks) needed for 
input/output operations during the 
compilation. 
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• Compilation information, such as: 

1. Type of program/subprogram being 
compiled (i.e., main program, FUNC- 
TION subprogram, or SUBROUTINE 
subprogram) . 

2. Size of internal text buffers. 

3. Addresses of buffers, table index- 
es, certain tables, and work areas. 

4. Indicators (e.g., indicators of any 
errors encountered during the 
compilation) . 

• Object- time information, such as: 

1. Size of COMMON to be used with the 
object module, and of the tables 
required for the object module exe- 
cution. 

2. The location counter used, through- 
out the compilation, for the 
assignment of object-time address- 
es. 



DCBS AND DECBS; The DCBs and DECBs for the 
data sets used during the compilation are 
assembled into the interface module in 
skeletal form. (For a description of the 
DCBs and DECBs refer to the publication IBM 
System/360 Operating System; Introduction 
to Control Program Logic, Program Logic 
Manual. ) The various fields of the DCBs 
are filled in by the control program when 
the data control blocks are opened (refer 
to the publication IBM Svstem/3 60 Operating 
System; Concepts and Facilities ) . However, 
the DCB block size fields for data sets 
SYSUTl and SYSUT2 are overlayed with values 
computed by the compiler. 



INTERFACE ROUTINES; The interface module 
contains four interface routines; an I/O 
routine, an end-of -phase routine, a print 
control operations routine, and a patch 
routine. (See Chart 02). 

The I/O routine (SIORTN) processes I/O 
requests of the compiler. For SPACE compi- 
lations, the I/O requests are initiated via 
a linkage to this routine. (Refer to 
Appendix H for a description of this lin- 
kage to the interface module. ) For PRFRM 
compilations, the I/O requests are initiat- 
ed via a linkage to the PIORTN routine in 
the performance module. The PIORTN, in 
turn, links to the SIORTN routine in the 
interface module. The SIORTN routine: 

• Analyzes the linkage parameters passed 
to it by either the component of the 
compiler requesting I/O, or other 
interface module routines. These par- 



ameters indicate: (1) the type of 
request (read, write, or check), (2) 
the address of the I/O buffer for the 
operation, and (3) what data set is to 
be used for the operation. 



Fulfills the request by issuing the 
appropriate macro-instruction (READ, 
WRITE, and/or CHECK) . 



The compile-time I/O error recovery pro- 
cedure is illustrated in Chart 02. 



The end-of-phase routine (SNEXT) is the 
means by which control is passed from one 
component of the compiler to the next for 
SPACE compilations. The transferring of 
control between compiler components is ini- 
tiated via a linkage to this routine. 
(Refer to Appendix H for a description of 
this linkage to the interface module. ) The 
end-of-phase routine: 

• Analyzes the linkage parameters passed 
to it by the component of the compiler 
relinquishing control. These paramet- 
ers indicate the name of the next 
component to be executed and the dispo- 
sition of various data sets. 

• Repositions the data sets indicated in 
the linkage parameters. 

• Transfers control to the next component 
via the XCTL macro- instruction. 



The print control operations (PRTCTRL) 
routine allows the use of device- 
independent control operations for the 
SYSPRINT data set. If the data set is 
being placed onto an intermediate storage 
device before being printed, the printer 
control codes remain as part of the data 
set (thereby retaining device 
independence) • 



The patch routine (PATCH) allows tem- 
porary modification of the compiler 
modules. (A module is modified for the 
duration of a batch compilation. ) Each 
compiler module unconditionally branches to 
the patch routine to check whether the 
module being executed is to be modified. 
(Refer to Appendix H for a description of 
this linkage to the interface module.) If 
it is, the patch routine overlays the 
instructions or data of the module to be 
modified with patch information for that 
module. This information is placed in the 
patch table (a 100- byte portion of the 
patch routine) by Phase 7. If there is no 
patch information, control is immediately 
returned to the module being executed. 
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Loading the Print Buffer Module 



Loading the Performance Module 



The print buffer irodule (lEJFAKAO) is 
loaded into main storage during Phase 1. 
It contains two I/O buffers that are used 
by the SYSIN and SYSPRINT data sets. SYSIN 
uses the I/O buffers during the source 
statement scan. The card images of the 
source module (s) to be compiled are alter- 
nately read into one of the two buffers. 
The double-buffer scheme allows for over- 
lapping the scanning of a card image in one 
buffer with the reading of the next card 
image of the source module into the other 
buffer. 



Phase 1 examines the PRFRM bit in the 
comir/uni cation area to determine if the 
PRFRK option has been specified by the 
user. If the PRFRM option is specified, 
and if the value specified in the SIZE 
option is at least 17504, Phase 1 loads the 
perfcrmiance module (lEJFAPAO) into main 
storage. The performance module reduces 
phase-to-phase transition processing and 
thereby decreases compilation time. The 
performance module is composed of two rou- 
tines and two tables. 



SYSPRINT uses the I/O buffers for: (1) 
writing patch records if any, (2) generat- 
ing the storage map, and (3) listing the 
source module. 



Processing Compiler Options 



Options may be chosen by the user to 
tailor the output of the compiler to his 
specifications. Phase 1 checks these 
options specified in the execute statement 
(EXEC) for the compilation. This informa- 
tion was previously entered into an area 
designated by the calling program. The 
contents of this area are obtained by Phase 
1 via an address in general register 1. 
They are then encoded and entered in the 
communication area. For a description of 
the options and their use, refer to the 
publication IBM Svstem/360 Operating Sys- 
tem; FORTRAN IV (E) Programmer's Guide . 

If the object listing facility of the 
compiler has been enabled. Phase 1 also 
checks whether the object listing option (a 
$ in the PARM field of the EXEC statement) 
is specified. (The object listing facility 
is enabled by reassembling Phase 1 with the 
branch instruction that disables the facil- 
ity either removed or replaced with a no-op 
instruction.) If the option is specified. 
Phase 1: (1) sets the appropriate indicator 
in the communication area, and (2) loads 
the source symbol load module (SORSYM) into 
main storage. SORSYM, a SYSl.LINKLIB load 
module (lEJFAXAO), reserves an area in main 
storage. The names of all variables and 
constants used in the source module and 
their corresponding relative addresses are 
placed into this area by Phase 12. 

If the object listing facility has not 
been enabled. Phase 1 indicates an invalid 
compiler option, by setting the invalid 
option bit in the communication area, if 
the object listing option is specified. 



PERFORMANCE MODULE ROUTINES; The perfor- 
mance module contains an I/O routine, and 
an end-of-phase routine. (See Chart 03.) 

The I/O routine (PIORTN) is used to 
deblock compiler input on SYSIN; and to 
block compiler output on SYSLIN, SYSPRINT, 
and SYSPUNCH, as required by the block 
sizes specified for the above data sets. 
I/O requests for a PRFRM compilation are 
initiated via a linkage to this routine. 
(Refer to Appendix H for a description of 
this linkage to the performance module.) 
The I/O routine: 



• Analyzes the linkage parameters passed 
to it by the calling phase. These 
parameters indicate: (1) the type of 
request (read, write, check, or flush), 
(2) the address of the area into which, 
or from which the logical record is to 
be moved, and (3) the data set to be 
used for the operation. (A flush 
request forces the contents of the 
current output buffer to be written 
out. ) 



• Deblocks compiler input from SYSIN if a 
blocking factor greater than 1 is spec- 
ified. The PIORTN routine reads (via a 
linkage to the SIORTN routine in the 
interface module) a block from the 
SYSIN data set into an I/O buffer only 
when an entire block has been deblocked 
and moved into the area requested by 
the calling phase. This reduces the 
number of READ macro- instructions 
issued for a compilation and thus 
decreases compilation time. 



• Blocks compiler output on the output 
data sets if their corresponding block- 
ing factors are greater than 1. (Each 
blocking factor is determined from the 
BLKSIZE (block size) field in the DCB 
parameter of the associated DD state- 
ment.) In general, the PIORTN writes 
(via a linkage to the SIORTN routine in 
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the interface module) a block onto an 
output data set only when the I/O 
buffer containing that block has been 
filled. (However, when Phase 1 
requests a flush at the end of the last 
compilation, the PIORTN will force a 
truncated buffer to be written if the 
buffer is only partially filled.) This 
reduces the number of WRITE macro- 
instructions issued for a compilation 
and thus decreases compilation time. 



The end-of-phase routine (PNEXT) is the 
means by which control is passed from one 
component of the compiler to the next for 
PRFRM compilations. The transferring of 
control between compiler components is 
initiated via a linkage to this routine. 
(Refer to Appendix H for a description of 
this linkage to the performance module.) 
The end-of-phase routine: 

• Analyzes the linkage parameters passed 
to it by the component of the compiler 
relinquishing control. These paramet- 
ers indicate the name of the next 
component to be executed, and the dis- 
position of the various data sets. 

• Repositions the data sets indicated in 
the linkage parameters. 

• Transfers control to the next component 
via the XCTL macro-instruction. If the 
next component is an interlude, the 
performance module bypasses the execu- 
tion of the interlude and transfers 
control to the next phase of the com- 
piler. If the next component is a 
phase, the performance module immedi- 
ately transfers control to the next 
phase. 



Opening Required Data Control Blocks 



The data control blocks that are opened 
by Phase 1 depends upon the options speci- 
fied by the user. 

If the SPACE option is specified. Phase 
1 opens (via the OPEN macro-instruction) 
only the data control blocks for the data 
sets used by Phases 7, lOD, and lOE (SYSIN, 
SYSUTl, SYSUT2, and SYSPRINT) . The main 
storage that is saved at this time by not 
opening the data control blocks for SYSLIN 
and SYSPUNCH is necessary for the execution 
of Phases lOD and lOE. (The SYSLIN and 
SYSPUNCH data sets are not needed by the' 
compiler until the execution of Phase 12. 
Therefore, their corresponding data control 
blocks are not opened until the execution 
of Interlude lOE. ) 

If the PRFRM option is specified. Phase 
1 opens (via the OPEN macro-instruction) 
the data control blocks for all the data 
sets required by the compiler. Because all 
the required data control blocks are opened 
initially, the compiler can bypass the 
execution of Interludes lOE, 14, and 15; 
and can avoid repeated closing and re- 
opening of data control blocks. Bypassing 
the execution of the interludes reduces 
phase-to-phase transition time and thus 
decreases compilation time. 

If neither the SPACE nor the PRFRM 
option is specified. Phase 1 assumes a 
default value of SPACE and opens the data 
control blocks accordingly. 

The manipulation of data control blocks 
by subsequent components of the compiler 
for SPACE compilations as well as for PRFRM 
compilations is illustrated in Appendix A. 



PERFORMANCE MODULE TABLES; The performance 
module contains two tables: the blocking 
table, and the BLDL table. 



Loading Phase 7 



Phase 7 constructs a blocking table 
entry for each of the data control blocks 
that are opened by Phase 1. The blocking 
table provides the PIORTN routine with the 
information necessary to deblock compiler 
input, and to block compiler output. 
(Refer to Appendix C for the format of the 
blocking table. ) 



Phase 7 constructs the BLDL table via 
the BLDL macro-instruction. The BLDL table 
provides the PNEXT routine with the infor- 
mation necessary to transfer control from 
one component of the compiler to the next. 
(Refer to Appendix c for the format of the 
BLDL table.) 



Phase 7 (lEJFEAAO) is loaded into main 
storage by Phase 1, using the LOAD macro- 
instruction. This is not the normal 
condition; normally, the XCTL macro- 
instruction in the end-of-phase routine is 
used to call a phase into main storage. 

Phase 1 loads Phase 7 into the highest 
area of available main storage, relative to 
location zero. (The XCTL macro-instruction 
would load Phase 7 into the lowest area of 
available main storage.) This special 
loading by Phase 1 permits Phase 7 to set 
up the resident tables in the lowest area 
of available main storage. The physical 
locations occupied by the various compiler 
components and resident tables are illus- 
trated in Appendix J. 
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SUBSEQUENT ENTRIES 



At subsequent entries. Phase 1 either i 

• Initiates a new coirpilation, or 

• Terminates the compilation. 



Initiating a New Coinpilation 

If a new compilation is to be initiated. 
Phase 1 first determines if a PRFRM or a 
SPACE compilation is to be performed. If a 
PRFRM compilation is to be performed. Phase 
1 immediately loads (via the LOAD 
macro-instruction) Phase 7 into main stor- 
age and then transfers control to Phase 7. 

If a SPACE compilation is to be per- 
formed. Phase 1 determines if a restart 
condition exists. That is, if a PRFRM 
compilation was requested and Phase 7 det- 
ermined that the required main storage for 
the PRFRM compilation was not available. 
Phase 7 then alters the PRFRM compilation 
to a SPACE compilation and returns control 
to Phase 1. 

If a restart condition exists. Phase 1: 
(1) deletes (via the DELETE 
macro-instruction) the performance module 
from main storage, (2) closes (via the 
CLOSE macro-instruction) the data control 
blocks for all required compiler data sets 
(opened by Phase 1 for the PRFRM option) , 
and (3) reopens (via the OPEN 
macro-instruction) only the data control 
blocks for the data sets required for 
Phases 7, lOD, and lOE. Phase 1 then loads 
(via the LOAD macro-instruction) Phase 7 
into main storage and transfers control to 
Phase 7. 

If a restart condition does not exist 
and if the SPACE option is in effect. Phase 
1 first frees (via the FREENAIN 
macro-instruction) the main storage that 
was previously allocated to the compiler 
for the internal text buffers and the 
overflow table during execution of Phase 7. 
Subsequent Phase 1 processing except for 
the deletion of the performance module is 
the same as that described for the restart 
condition. 



being used for a blocked data set to be 
written. This insures that all compiler 
output for blocked data sets is written. 
In the case of an unblocked data set, the 
flush request for that data set is ignored. 
Phase 1 next closes (via the CLOSE 
macro-instruction) the data control blocks 
for all the data sets used by the compiler. 
Phase 1 then: (1) frees (via the FREEMAIN 
macrc-instruction) all the main storage 
that was allocated to the compiler during 
execution of Phase 7, and (2) deletes (via 
the DELETE macro- instruction) the interface 
module, the print buffer module, and, for a 
PRFRM compilation, the performance module. 
Control is then returned to the calling 
program with the proper return code. 

If internal errors (e.g., permanent I/O 
errors) occur at any time, the current 
compilation is immediately terminated by 
calling Phase 1. Phase 1 then performs the 
above processing and returns control to the 
calling program with a return code of 16. 



PHASE 7 (lEJFEAAO) 



Phase 7, the second phase of the compil- 
er, is entered after the completion of 
Phase 1. The functions of the phase are: 

• Obtaining main storage for the compil- 
er. 

• Allocating main storage to the compil- 
er. 

• Constructing resident tables used by 
the compiler. 

At the conclusion of Phase 7 processing, 
a delete routine is moved into the print 
buffer module. Control is then passed to 
the delete routine. The delete routine 
deletes Phase 7 from main storage (via the 
DELETE macro- instruction) and then passes 
control to either Phase 1 (to restart or 
terminate a compilation) or to Phase lOD 
(to begin the scan of source module 
statements) . 

Chart 04 illustrates: (1) the overall 
logic and the relationship among the rou- 
tines of Phase 1, and (2) the overall logic 
of the delete routine. Table 3, the rou- 
tine directory, lists the routines used in 
the phase and their functions. 



Terminating the Compilation 



OBTAINING MAIN STORAGE 



If the last source module on the SYSIN 
data set has been compiled. Phase 1 first 
requests a flush operation for the SYSLIN, 
SYSPUNCH, and SYSPRINT data sets. A flush 
request forces the current output buffer 



The amount of main storage required by 
the compiler depends on whether a SPACE or 
a PRFRM compilation is being performed. 
For a SPACE compilation, a minimum of 
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15,360 bytes is required. For a PRFRM 
compilation, a mininiuni of approximately 
19,500 bytes is required. (The exact 
amount depends on the device configuration 
of the user. That is, different I/O devi- 
ces require different access method rou- 
tines and different control blocks.) 

The process of obtaining main storage is 
actually stairted in Phase 1. Phase 1 has 
already obtained main storage for: 



(if the PRFRM 



• The interface module. 

• The print buffer module. 

• The performance module 
option is specified) . 

• BSAM routines. 

• Phase 7. 



Phase 7, upon receiving control from 
Phase 1, calculates the total amount of 
main storage obtained by Phase 1, and 
subtracts this amount from the value speci- 
fied in the SIZE option. (If the SIZE 
option was not specified by the user, the 
minimum amount required for a SPACE compi- 
lation is assumed as a default value for 
the SIZE option. ) The result of this 
calculation is the amount of main storage 
that Phase 7 attempts to obtain via the 
GETMAIN macro-instruction- If more than 
this amount is obtained. Phase 7 frees the 
excess via the FREEMAIN macro- instruction. 
If less than the minimum amount required 
for a SPACE compilation is obtained, an 
unconditional GETMAIN macro-instruction is 
issued in order to obtain the minimum 
amount . 



The main storage allocated to the dic- 
tionary and the overflow table, except for 
the reserved word portion of the dictio- 
nary, may be segmented. That is, the 
dictionary and overflow table may occupy 
more than one segment of main storage. The 
location of the segments allocated to the 
dictionary and overflow table are recorded 
(sequentially by address) in a segment 
address list (SEGMAL) . SEGMAL resides at 
the beginning of the first segment. The 
location of the dictionary index and the 
overflow table index as well as a pointer 
to the ending location of the current 
segment in which the dictionary and over- 
flow table are being built are recorded in 
the communication area. 

The dictionary portions are loaded into 
the highest storage segment (s) and the 
overflow table portions are loaded into the 
lowest storage segment (s). This ensures 
that the dictionary resides "above" the 
overflow table. The dictionary must reside 
above the overflow table because the stor- 
age allocated to the dictionary is freed 
(via the FREEMAIN macro-instruction) at the 
conclusion of Phase 14 processing. This 
additional main storage is required for the 
execution of subsequent phases, primarily 
for Phase 15. (For PRFRM compilations, the 
main storage allocated to the dictionary is 
not freed until compilation is terminated 
by Phase 1.) 

The main storage allocated to the inter- 
nal text buffers may be segmented. Howev- 
er, the irain storage for each buffer itself 
must be contiguous. The location of the 
segment assigned to each buffer is indicat- 
ed in the communication area. 



ALLOCATING MAIN STORAGE 



The procedure used by Phase 7 for allo- 
cating main storage depends on whether a 
SPACE or a PRFRM compilation has been 
initiated. Appendix J illustrates the main 
storage allocated to the compiler for both 
SPACE and PRFRM compilations. 



For PRFRM Compilations 



For a PRFRM compilation, the main stor- 
age allocation algorithm must determine if 
blocked I/O is specified by the user. 



For SPACE Compilations 



For a SPACE compilation, the main stor- 
age obtained by Phase 7 is allocated, via 
the storage allocation table, among the 
transient work area (an 800-byte area 
required by the control program) , the dic- 
tionary, the overflow table, and four 
internal text buffers. The storage alloca- 
tion table (refer to Appendix B) indicates 
the amount of main storage to be allocated 
to the text buffers, the dictionary, and 
the overflow table. 



BLOCKED I/O; If any blocked I/O is speci- 
fied, portions of the obtained main storage 
must be allocated to special I/O buffers 
required for blocking and deblocking. 
Phase 7 allocates main storage for two I/O 
buffers for each data set for which block- 
ing is requested. The size of each buffer 
is determined by the BLKSIZE field in the 
DCB parameter of the associated DD state- 
ment. If the BLKSIZE fields are not speci- 
fied, the compiler assumes the following 
default values for the compiler data sets: 

• SYSPRINT — 121 

• All others — 80 
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Dictionary and Overflow Table 



Phase 7 constructs only those portions 
of the dictionary and overflow table that 
are independent of the source module being 
compiled. In the dictionary, the index and 
the reserved word portion are constructed. 
In the overflow table, the overflow index 
is constructed. 



In the event that the remaining main 
storage is not sufficient, the compilation 
is terminated and control is transferred to 
Phase 1. Phase 1, in turn, passes control 
to the scheduler tc terminate the job step. 



UNBLOCKED I/O: 



If 



all I/O is unblocked. 

Phase 7 determines if the amount of main 
storage obtained is sufficient for the 
transient work area, the dictionary, the 
overflow table, and the internal text buf- 
fers. If there is sufficient storage, 
subsequent main storage allocation for a 
PRFRK compilation with unblocked I/O is the 
same as that described for a SPACE compila- 
tion. 

If the amount of main storage obtained 
is not sufficient. Phase 7 frees (via the 
FREEWAIN macro-instruction) all the main 
storage it obtained. Phase 7 then alters 
the PRFRM compilation to a SPACE compila- 
tion (restart condition) and transfers con- 
trol to Phase 1 via the delete routine. 
Phase 1 then initializes the compiler for a 
SPACE compilation. 



The index for the dictionary and the 
index for the overflow table are used by 
subsequent phases to enter information into 
and obtain information from the respective 
table. The reserved word portion of the 
dictionary contains all the reserved words 
of the FORTRAN IV (E) language. 



SEGMAL 



SEGMAL contains the starting and ending 
addresses of each main storage segment 
allocated to the dictionary and the over- 
flow table. The starting address and the 
length of each segment is obtained as a 
result of the GETMAIN macro- instruction. 
Phase 7 then computes the ending address of 
each segment, and enters both the starting 
and ending address for each segment into 
SEGMAL. This sequence of addresses consti- 
tutes SEGMAL. 



Patch Table 



RESIDENT TABLE CONSTRUCTION 



The resident tables of the compiler 
(described in Appendix C) are: 

• The dictionary and the overflow table. 

• The segment address list (SEGMAL). 

• The patch table. 

• The blocking table and the BLDL table 
(resident only for PRFRM compilations) . 

For the dictionary and the overflow 
table. Phase 7 only constructs the portions 
that are independent of the source module 
being compiled. SEGMAL is constructed as 
main storage segments are allocated to the 
dictionary and the overflow table. The 
patch table, a portion of the interface 
module, is constructed only if the patch 
facility has been enabled and if patch 
records precede the source statements of 
the source module (s) being compiled. The 
blocking table and the BLDL table, portions 
of the performance module, are constructed 
only for PRFRM compilations. 



If the patch facility of the compiler 
has been enabled. Phase 7 determines if the 
first record read from SYSIN is a patch 
record. (The patch facility is enabled by 
reassembling Phase 7 with the branch 
instruction that disables the patch facili- 
ty either removed or replaced with a no-op 
instruction. ) If the first record is a 
patch record, it is first listed on SYS- 
PRINT and then posted in a patch table (100 
bytes) in the interface module. Posting 
consists of: (1) converting the contents of 
a patch record into a format that is usable 
to the patch routine, and (2) moving the 
converted patch record to the patch table. 
All subsequent patch records are processed 
in this manner by Phase 7. 



Blocking Table and BLDL Table 



Phase 7 constructs the blocking table 
and the BLDL table only for PRFRM compila- 
tions. The performance module contains the 
main storage required for these tables. 
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Phase 7 constructs a blocking table 
entry for each of the data control blocks 
that were opened by Phase 1. Phase 7 
places information into the blocking table 
that is required for deblocking compiler 
input and blocking compiler output. This 
information includes such things as: logi- 
cal record length, blocking factor, poin- 
ters to the special buffers allocated by 
Phase 7, etc. 

Phase 7 constructs the BLDL table via 
the BLDL macro-instruction. (For a des- 
cription of the BLDL macro- instruction, 
refer to the publication IBM System/360 
Operating System; Data Management .) The 
BLDL table contains the information neces- 
sary to transfer control from one component 
of the compiler to the next. The construc- 
tion of the BLDL table reduces phase-to- 
phase transition time and thereby decreases 
compilation time. 



phases of the compiler. Phase lOD converts 
the declarative statements; Phase lOE con- 
verts the statement function definitions 
and the executable statements. The result 
of this conversion is intermediate text (an 
internal representation of the source 
statements), and the dictionary and over- 
flow table that contain detailed informa- 
tion about specific portions of the state- 
ment. 



The information in the dictionary and 
overflow table supplements the intermediate 
text in the generation of code by the 
succeeding phases. This information is 
associated with the intermediate text 
entries via pointers that reside in the 
text entries. 

A complete listing of the declarative 
statements is prepared on the SYSPRINT data 
set by Phase lOD if the SOURCE option has 
been chosen. 



PHASE lOD (lEJFGAAO) 



Phase lOD, the f 
the compiler, i 
completion of Phase 
es the specificat 
source module (plus 
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statements, which are 
statements, are: 



COMMON 

DIMENSION 

EQUIVALENCE 

INTEGER 

REAL 

DOUBLE PRECISION 

EXTERNAL 

FORMAT 

SUBROUTINE or FUNCTION 



Declarative statements, other than the 
FORMAT Statement, must precede the state- 
ment function definitions and the execut- 
able statements. The executable statements 
are all FORTRAN IV (E) statements other 
than those listed above and statement func- 
tion definitions . 

In processing the declarative state- 
ments. Phase lOD performs the following 
functions: 

• Prepares intermiediate text. 

• Constructs dictionary and overflow 
table entries. 

• Prepares the first part of the source 
statement listing (a minor function) . 

Phase lOD and Phase lOE (the next phase 
to be executed) convert each FORTRAN source 
statement into usable input to subsequent 



When a statement f\mction definition or 
an executable statement is encountered in 
the input stream, control is passed to 
Phase lOE. 

Figure 4 illustrates the data flow with- 
in the phase. 

Chart 05 indicates the overall logic and 
the relationship among the routines of 
Phase lOD. Table 5, the routine directory, 
lists the routines used in the phase and 
their functions. 



INTERMEDIATE TEXT PREPARATION 



Phase lOD produces intermediate text, 
which is the form in which information is 
transmitted from the source module to the 
processing phases. (Refer to Appendix L 
for a description of the source statement 
scan required for intermediate text prepar- 
ation.) 

Intermediate text is prepared for FOR- 
MAT, FUNCTION, and SUBROUTINE declarative 
statements. (Refer to Appendix D for the 
intermediate text format.) This text is 
used to transmit these statements to Phases 
14, 15, 20, and 25, 

Two special forms of intermediate text, 
COMMON and EQUIVALENCE text, are produced 
for COMMON and EQUIVALENCE Statements, res- 
pectively. (Refer to Appendix D for the 
format.) These special forms of text 
transmdt the corresponding statements to 
Phase 12. 
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Figure 4. Phase lOD Data Flow 



CONSTRUCTION OF DICTIONARY AND OVERFLOW 
TABLE ENTRIES 



PHASE lOE (lEJFJAAO) 



Dictionary and overflow table entries 
are made during Phase lOD for: 



• Symbols appearing within declarative 
statements. 



Statement numbers associated 
clarative statements. 



with de- 



Entries are m.ade to the dictionary 
(refer to Appendix C) for symbols appearing 
in all declarative statements except the 
FORMAT statements . If any symbol is 
already entered in the dictionary, that 
entry is modified, if necessary, to reflect 
any new information about the symbol under 
consideration. For example, if the symbol 
is in COMMON, an indicator in the diction- 
ary is set on. 



Entries are made to the 
(refer to Appendix C) for: 

• Statement numbers, 

• Dimension information. 



overflow table 



Phase lOE, the second processing phase 
of the compiler, is entered after the 
completion of Phase lOD. The functions of 
the phase are: 

• Intermediate text preparation. 

• Construction of dictionary and overflow 
table entries. 

• Completion of the preparation of the 
source statement listing (a minor 
function) . 



Phase lOE processes SFs (statement 
functions) , the executable statements of 
the source module, and any FORMAT state- 
ments interspersed among them. As each SF, 
executable, or FORMAT statement appears in 
the input stream, intermediate text is 
prepared and corresponding entries are made 
to the resident tables. The intermediate 
text prepared by Phase lOE represents the 
executable source module statements. The 
resident tables complement intermediate 
text. (For the formats of the intermediate 
text and the resident tables, refer to 
Appendixes D and C, respectively.) If any 
syntactical errors are encountered during 
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the processing of an SF, executable, or 
FORMAT statement, error intermediate text 
entries are made immediately following the 
intermediate text entries for the statement 
in which the error was detected. 

As the intermediate text is prepared 
from the source statements processed by 
Phase lOE, a list of these statements is 
added to the SYSPRINT data set, which was 
begun by Phase lOD. 

When the END statement is encountered, 
Phase lOE passes control either to Inter- 
lude lOE (lEJFJGAO) for SPACE compilations, 
or to Phase 12 for PRFRM compilations. 

Figure 5 illustrates the data flow with- 
in the phase. The data sets SYSIN, SYSUTl, 
and SYSPRINT are not repositioned after 
Phase lOD; therefore. Phase lOE can contin- 
ue to read from SYSIN or to add to SYSUTl 
and SYSPRINT. 

Chart 06 illustrates the overall logic 
and the relationship among the routines of 
Phase lOE. Table 7, the routine directory, 
lists the routines used in the phase and 
their functions. 



text entry of two words is made (refer to 
Appendix D) . The offset of the subscripted 
expression (for which a field in this 
unique text entry is reserved) is computed 
by Phase lOE. For a discussion of this 
aspect of subscripted expressions, refer to 
Appendix E. 

The combination of the intermediate text 
prepared by Phase lOD and the intermediate 
text prepared by Phase lOE form the inter- 
mediate text that is manipulated in the 
succeeding phases. 



CONSTRUCTION OF DICTIONARY AND OVERFLOW 
TABLE ENTRIES 



Phase lOE makes entries to the diction- 
ary for: 

• Variables. 

• Constants. 

• Subprograms. 

• Data set reference numbers. 

(Refer to Appendix C for the format and 
content of these entries, ) 



INTERMEDIATE TEXT PREPARATION 



Phase lOE makes entries to the overflow 
table for: 



Phase lOE produces intermediate text for 
each SF and executable statement, and for 
any FORMAT statements among them. (Refer 
to Appendix L for a description of the 
source statement scan required for inter- 
mediate text preparation.) 

For a subscripted expression appearing 
within a statement, a unique intermediate 



• Subscripted expressions appearing in 
the executable statements. 

• Statement numbers associated with FOR- 
MAT statements or executable state- 
ments . 



(Refer to Appendix C for the format and 
content of these entries. ) 
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PHASE 12 (lEJFLAAO) 



Phase 12, the third processing phase of 
the compiler, is entered either after the 
completion of Interlude lOE for SPACE com- 
pilations, or after the completion of Phase 
lOE for PRFRM compilations. The functions 
of the phase are: 



Address assignment. 

EQUIVALENCE Statement processing. 

Branch list table preparation. 

Card image preparation. 

Preparation of a storage map if the MAP 

option is specified (a minor function). 



Address assignment is the allocation of 
relative storage locations to: 

• Variables and arrays in COMMON. 

• Equated variables. 

• Nonequated variables and arrays in the 
dictionary (dictionary entries). 

• Constants. 

• Variables in subscripted expressions. 



Addresses are assigned in 
which they are listed above. 



the order in 



If the object listing facility of the 
compiler has been enabled and if the object 
listing option is specified. Phase 12 plac- 
es the names of all variables and constants 
used in the source module and their corres- 
ponding relative addresses into the SORSYM 
load module. (SORSYM was previously loaded 
into main storage by Phase 1. ) 

Processing of the EQUIVALENCE text 
occurs after the assignment of addresses to 
variables and arrays in COMMON but before 
the assignment of addresses to dictionary 
entries . 



EQUIVALENCE text processing assigns 
relative positions to the variables within 
the EQUIVALENCE Statements. These relative 
positions are indicated in a table, which 
is created and used to assign relative 
addresses to the variables according to 
their position in the table. 

After the assignment of addresses to 
variables in subscripted expressions. Phase 
12 prepares a branch list table, which is 
used to control branching within the object 
module. 

During the assignment of addresses by 
Phase 12, ESD, TXT, and RLD card images are 
generated for section definitions, entry 
points, literals, and external references. 

In addition to the preceding functions. 
Phase 12 prepares a storage map to indicate 
all address assignments made during the 
phase. 

After the completion of Phase 12 pro- 
cessing, control is passed to Phase 14. 

Figure 6 illustrates the data flow with- 
in the phase. 

Chart 07 illustrates the overall logic 
of Phase 12 and the relationship among its 
routines. Table 8, the routine directory, 
lists the routines used in the phase and 
their functions. 



ADDRESS ASSIGNMENT 



An effective address in IBM System/3 60 
Operating System (a base-displacement 
address) is the displacement in an instruc- 
tion added to the value in a base register. 
This yields a two-byte address wherein the 
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first four bits represent a general reg- 
ister used as a base register and the last 
twelve bits represent the displacement. 
All symbols in the object miodule generated 
by the compiler are referenced by this 
two-byte address. 

The base-displacement address is 
assigned through the use of a location 
counter, which is initialized and then 
incremented by the number of bytes needed 
in main storage to contain the variable, 
array, constant, address constant, or 
equated variable assigned an address. If 
more than 4096 bytes are needed, a new base 
register is assigned. 

There are only two instances in which 
the location counter may be incremented 
when no address is assigned: 

• The first occurs after the variables in 
COMMON are assigned addresses. A new 
base register is assigned to the loca- 
tion counter so that a variable in 
COMMON has a different base register 
than a variable not in COMMON. 

• The second may occur after integer and 
real constants are assigned addresses. 
The location counter is adjusted to 
accommodate the double-precision con- 
stants. Double-precision constants are 
assigned addresses immediately after 
real and integer constants. 

When a variable is assigned an address, 
that address is placed in the chain address 
field of the dictionary entry for the 
variable. 

FORMAT statements are assigned addresses 
during the execution of Phase 14. All 
phases after Phase 12 assign addresses 
whenever a constant or work area is 
defined. 



groups forir, an EQUIVALENCE class. 
Further, if any other group contains an 
element in this class, the other group 
is part of this class, etc. 



Root — the member of 
group or class from 
variables in that group 



an EQUIVALENCE 

which all other 

or class are 



referenced 
placement. 



by means of a positive dis- 



• Displacement — the distance, in bytes, 
between a variable and its root. 

The root of an EQUIVALENCE group is 
assigned an address, and all other varia- 
bles in the group are assigned addresses 
relative to that root. 

Tc determine the root and the displace- 
ment cf the other eleirents in the group 
from the root, the first element in the 
EQUIVALENCE group is established initially 
as the root. The displacement for the 
other elements (in relation to the root) is 
calculated by subtracting the offset of the 
root fromi the offset of the variable whose 
displacement is being calculated. (The 
offset for subscripted variables is con- 
tained in the EQUIVALENCE text created by 
Phase lOD. The offset for nonsubscripted 
variables is zero.) 

If the resulting displacement is nega- 
tive, the root is changed. The new root is 
the variable whose displacement was being 
calculated. Whenever a new root is 
assigned to an EQUIVALENCE group, the pre- 
viously calculated displacements must be 
recalculated. 

The root and the displacements in each 
group are entered in an EQUIVALENCE table, 
which is used by the storage assignment 
routines of Phase 12 to assign addresses to 
equated variables. (Refer to Appendix B 
for the table format. ) 



EQUIVALENCE STATEMENT PROCESSING 



BRANCH LIST TABLE PREPARATION 



The EQUIVALENCE text is processed by 
Phase 12 so that equated variables are 
assigned to the same address. 



The following terms are used in 
description of EQUIVALENCE processing: 



the 



• EQUIVALENCE group — the variable 
and/or array names between a left and 
right parenthesis in an EQUIVALENCE 
statement. 

• EQUIVALENCE class — two Or more EQUIV- 
ALENCE groups that have the following 
characteristic. If any EQUIVALENCE 
groups contain the same element, these 



The branch list table is initialized by 
Phase 12 (and is completed by Phase 25). 
This table is used by the object module to 
control the branching process. (Refer to 
Appendix F for the table format.) Each 
statement number referenced in a control 
statement is assigned a position relative 
to the start of the branch table. This 
position is indicated to Phase 25 by a 
relative number, which replaces the chain 
field of the corresponding statement number 
entry in the overflow table. 

In the assignment process, the statement 
number chains in the overflow table are 
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scanned sequentially. Each time an entry 
for a statement number indicates a ref- 
erenced statement other than the statement 
number of a FORWAT or specification state- 
ment, a counter associated with the branch 
list table is incremented by 4. (Four 
bytes are required for the referenced 
statement number and the address that will 
be assigned to the number by Phase 25.) 
The current contents cf that counter are 
then placed in the chain field of the 
corresponding overflow table entry. 



• RLD This card contains the address 
of the location at which the 
address of each external subpro- 
gram will be loaded at object 
time. There may be several such 
cards. 



PHASE 14 (lEJFNAAO) 



This counter is initialized to 0. 
Therefore, the first statement number in 
the first chain is assigned the number 0, 
the second statement number is assigned the 
relative number 4, the third statement 
number is assigned the relative number 8, 
and so on. After all statement numbers are 
assigned, the location counter is incre- 
mented by an amount equal to the size of 
the branch list table (in bytes) . 



CARD IMAGE PREPARATION 



Several card images are prepared during 
the execution of Phase 12. This involves 
setting up the proper formats for the card 
images and inserting the pertinent informa- 
tion into those formats. The card images 
prepared are indicated below, along with 
their functions. For a more complete dis- 
cussion of the use and format of these 
cards, refer to the publication IBM 
System/360 Operating System; linkage Edi- 
tor, Program Logic Manual . 

The cards generated by Phase 12 are: 

• ESD-0 This is the section definition 

card for the source module being 
compiled. 

• ESD-1 This card defines the entry 

point for the source module 
being coirpiled. 

• ESD-2 This card is produced for exter- 

nal subprogram names. There may 
be several such cards. 

• ESD-5 This is the section definition 

card for COMMON (if a COMMON 
statement exists in the source 
module being compiled) . 

• TXT This card is produced for con- 

stants that have been entered in 
the dictionary. There may be 
several such cards. 



Phase 14, the fourth processing phase of 
the compiler, is entered after the comple- 
tion of Phase 12. The functions of the 
phase are: 



• FORMAT statement processing. 

• READ/WRITE Statement processing. 

• Replacing dictionary pointers. 

• Miscellaneous statement processing. 

The FORMAT statement processing converts 
the intermediate text for FORMAT statements 
into a form acceptable to IHCFCOME and 
creates TXT card images. These card images 
are used by IHCFCOME to set up the format 
of the list items for the I/O operations of 
the compiled source module. For a discus- 
sion of IHCFCOME, refer to Appendix G. 

The processing fcr READ/WRITE statements 
consists of checking the components of the 
READ/WRITE Statements for validity, pro- 
cessing implied DOs within the READ/WRITE 
Statements, and rearranging the intermedi- 
ate text for READ/WRITE statemients. 

Phase 14 replaces dictionary pointers in 
the intermediate text with the appropriate 
address assigned by Phase 12, a data set 
reference number, or a statement function 
number. (For SPACE compilations, the main 
storage occupied by the dictionary is freed 
by Phase 14.) 

Upon completion of the Phase 14 process- 
ing, control is passed either to Interlude 
14 (lEJFNGAO) for SPACE compilations, or to 
Phase 15 for PRFRM compilations. 

The input to Phase 14 is the dictionary 
and the intermediate text. The intermedi- 
ate text has not changed since it was 
created by Phases lOD and lOE. The dic- 
tionary has been modified by Phase 12. 
Figure 7 illustrates the data flow within 
the phase. 

Chart 08 illustrates the overall logic 
of Phase 14 and the relationship among its 
routines. Table 11, the routine directory, 
lists the routines used in the phase and 
their functions. 
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FORMAT STATEMENT PROCESSING 



A FORMAT Statement is composed of one or 
more format specifications that define an 
I/O format. For a discussion of the physi- 
cal structure of a FORMAT statement refer 
to the publication IBM Svstem/360 Operating 
System; FORTRAN IV (E) Language . 

Each FORMAT statement is examined begin- 
ning with the first FORMAT code. For each 
FORMAT code obtained, a specific processing 
routine is called (refer to Table 10). The 
processing of each routine consists of 
entering the required information for the 
FORMAT code into TXT card images. These 
images are composed of 1-byte units con- 
taining 2 hexadecimal digits. Each byte 
contains one of the following: 

• An adjective code, which indicates to 
IHCFCOME the format conversion 
(H,I,F,P,X, etc.), a group or field 
count,, or the end of a FORMAT state- 
ment. 

• A number that represents the actual 
field count, field length, group count, 
or decimal length. 



One of the following is entered into a 
TXT card image: 

• Adjective Code and Number . Entered for 
FORMAT specifications P,I,T,A, and X, 
and for entries made to indicate a 
field or group count. 

• Adjective Code . Entered for a slash,, 
the right parenthesis that ends a 
group, or the right parenthesis that 
ends a FORMAT statement. 



Adjective Code, Field Length, and Deci- 
mal Length . Entered for FORMAT speci- 
fications D, E, and F. 



• Adjective Code, Field Length, 



and 



literal. Entered for FORMAT specifi- 
cations H and apostrophe. 



As the specific infoinnation is entered 
into TXT card images, addresses are 
assigned by incrementing the location 
counter (according to the amount of storage 
required to contain the contents of a TXT 
card image) . 



During the processing of a FORMAT state- 
ment, various accumulators are used to 
determine the record length. That length 
is compared to the user-specified length 
(indicated by the LINELNG option). If the 
record length is greater than the specified 
length, a warning indicator is placed in 
intermediate text. If the user has not 
specified a record length, the standard 
length is used. 



READ/WRITE STATEMENT PROCESSING 



The READ/WRITE Statement processing 
involves four operations. The first is a 
check for the validity of the symbol used 
for the data set reference number. An 
indicator for the end of the READ/WRITE 
statement is made by entering an end-of- 
statement indicator in the intermediate 
text before any entries for the I/O list. 
This allows Phase 20 to handle the I/O list 
as a separate statement in intermediate 
text. 
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The second operation is the replacement 
of dictionary pointers in intermediate text 
(for the symbols in the I/O list) with 
addresses assigned by Phase 12. This 
includes a check for the validity of the 
symbols in the I/O list. When an invalid 
symbol (a symbol other than a variable or 
array name) is encountered, an error condi- 
tion is noted in the intermediate text and 
the remainder of the I/O list is deleted. 



The third operation is to check for and 
process implied DOs, which are recognized 
by a left parenthesis within a READ/WRITE 
statement. For each encounter, an implied 
DO adjective code is inserted in the inter- 
mediate text for the READ/WRITE statement. 
When the end of an implied DO is recognized 
(right parenthesis) , an end DO adjective 
code is inserted in the intermediate text. 



The fourth operation is to rearrange the 
READ/WRITE statement entries so that later 
phases can process the statement correctly. 
The implied DO variable and parameters are 
placed ahead of any subscripted variables 
(whose intermediate text is also 
rearranged) . 



MISCELLANEOUS STATEMENT PROCESSING 



Statement function (SF) definition 
statements are assigned a unique SF number 
by Phase 14. This number is used to 
reference the SF within an associated 
branch list table in the compiled source 
module (refer to Phase 25) . This unique 
number is assigned, in sequence beginning 
with 01, to each SF in the program and is 
moved to the dictionary entry for the name 
of that SF. This number also replaces the 
pointer field of the intermediate text 
entry for the SF. 



The text for RETURN, DO, GO TO, IF, 
PAUSE, and STOP statements is examined to 
determine if the statement in question ends 
a DC loop. If it does, an error condition 
is noted in the intermediate text. In 
addition to this error check, if the adjec- 
tive code for a RETURN statement appears 
within a main program, that adjective code 
is changed to the adjective code that 
represents a STOP statement. 



A statement number entry in the inter- 
mediate text, other than a FORMAT statement 
number, is moved unchanged from the input 
buffer to the output buffer. A FORMAT 
statement number is treated as follows: 



REPLACING DICTIONARY POINTERS 



In the intermediate text entries for 
FORTRAN statements, other than the END and 
FORMAT statements, dictionary pointers are 
replaced by: 



The address assigned and placed in the 
dictionary chain field by Phase 12 if 
the pointer refers to an entry for a 
variable, constant, array, or external 
function. (The assigned addresses are 
obtained from the chain address fields 
of the affected entries in the diction- 
ary. ) 



• A data set reference number if the 
pointer refers to a data set reference 
n\imber. 



• A statement function number if the 
pointer refers to a statement function. 



• If the number is not referenced, a 
warning condition is noted in the 
intermediate text. 

• If the number is associated with a 
FORMAT statement that ends a DO loop, 
an error condition is noted in the 
intermediate text. 

• If neither a warning nor error condi- 
tion is noted for the number, the 
contents of the location counter are 
entered in the chain address field of 
the associated overflow table entry. 



BACKSPACE, REWIND, and END FILE state- 
ments are examined to verify that the data 
set reference number is a valid symbol. 



Intermediate text for computed GO TO 
statements is rearranged, putting the vari- 
able and the number of statement numbers 
before the statement numbers themselves. 
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PHASE 15 (lEJFPAAO) 



Phase 15, the fifth processing phase of 
the compiler, is entered either after the 
completion of Interlude 14 for SPACE compi- 
lations, or after the completion of Phase 
14 for PRFRM compilations. The functions 
of the phase are: 



• Reordering intermediate text. 

• Modifying intermediate text. 

• Assigning registers. 

• Creating argument lists. 

• Checking for statement errors. 

All of the above functions are performed 
for the processing of statements that can 
contain arithmetic expressions; only the 
error checking function is performed for 
the remaining statements. 

Phase 15 reorders the sequence of inter- 
mediate text words within statements that 
can contain arithmetic expressions 
(arithmetic, arithmetic IF, CALL, and 
statement functions) so that the resulting 
object code generated by Phase 25 will 
cause evaluation of arithmetic expressions 
according to a hierarchy of operators. As 
intermediate text words are being reor- 
dered, they are modified, depending on the 
operators and operands, to a form closely 
resembling an instruction format. When the 
intermediate text words are modified, reg- 
isters are assigned, when necessary, to the 
operands of all arithmetic operators. 
Argument lists for subprogram and statement 
function references are created, and in- 
line function references are processed by 
generating the appropriate instruction 
format intermediate text or intermediate 
text word for an in-line function call. 
During the input text processing, errors 
pertaining to DO loops, arithmetic IF 
statements, statement numibers, function 
arguments, and operand usage and form are 
recognized, and the appropriate error mes- 
sages are given. 

Upon completion of Phase 15 processing, 
control is passed either to Interlude 15 
(lEJFPGAO) for SPACE compilations, or to 
Phase 2 for PRFRM compilations. 

Figure 8 illustrates the data flow with- 
in Phase 15. 



Chart 09 illustrates the overall logic 
of Phase 15 and the relationship among its 
routines. Table 14, the routine directory, 
lists the routines of the phase and their 
functions. 



REORDERING INTERMEDIATE TEXT 



Phase 15 reorders the sequence of inter- 
mediate text words within arithmetic 
expressions so that the resulting code 
generated by Phase 25 will cause evaluation 
of arithmetic expressions according to a 
hierarchy of operators. The desired order 
is defined by a hierarchy of the specific 
operations as represented by adjective 
codes and is determined by a comparison of 
forcing values (a forcing value indicates 
an operator's priority in the hierarchy of 
operators) . (Refer to Appendix B, Figure 
18, for a list of the various operators and 
their corresponding forcing values.) 
Depending on the operator in an intermedi- 
ate text word and its relative position in 
the hierarchy of operators, that intermedi- 
ate text word is either: 

• Processed (this consists of modifying 
the intermediate text word by replacing 
the adjective code field and the 
mode/type code field, when necessary, 
with a machine operation code and a 
register number, respectively) , or 

• stored in an operations table or sub- 
script table (refer to Appendix B, 
Figures 19 and 20). 

The operations and subscript tables 
function as pushdown tables in which the 
top entry in the table is the most recently 
entered item. (This process is known as 
LIFO: last in, first out.) 

The actual reordering of intermediate 
text words is controlled by a routine 
(FOSCAN) that scans the input intermediate 
text words. This routine compares the 
forcing values of the various adjective 
codes under consideration to determine 
their disposition. Each adjective code has 
a left and a right forcing value. The 
right forcing value applies to the adjec- 
tive code within the current input inter- 
mediate text word. The left forcing value 
applies to the adjective code within the 
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top entry in the operations table. The 
adjective code of the first intermediate 
text word of an arithmetic statement has 
the highest left forcing value of any 
adjective code except for the end-of- 
statement indicator. 



+* -f *f and /) are replaced by the 
appropriate machine operation code. The 
contents of the mode field are replaced by 
a register number when the operator and 
operands require a register assignment. 



The first intermiediate text word of any 
arithmetic statement is first written on 
the output data set and then entered in the 
operations table. The next word of the 
input intermediate text for this statement 
is then obtained and examined. If it is 
subscript intermediate text, it is entered 
in the subscript table. The following word 
is then obtained and examined. When the 
word (in the operations table) containing 
the subscripted variable is processed, the 
related subscript intermediate text is 
obtained from the subscript table. The 
related subscript intermediate text is 
always the top entry in the subscript 
table. 

If the word obtained from the input 
intermediate text is not a subscript inter- 
mediate text word, the right forcing value 
of that word is compared to the left 
forcing value of the top entry in the 
operations table. If the right forcing 
value is greater than or equal to the left 
forcing value, the top entry of the opera- 
tions table is forced out, processed, and 
written on the output data set. If the 
right forcing value is less than the left 
forcing value, the current word of the 
input intermediate text is entered into the 
operations table. The next input inter- 
mediate text word is then obtained. This 
comparison process continues until the 
first entry (for the statement under 
consideration) made in the operations table 
is forced out (by the end mark) and proc- 
essed. In this way, the input data set is 
reordered when it leaves Phase 15 as the 
output data set. 

If an attempt is made to enter informa- 
tion in the operations or subscript table 
when they are full, an error condition is 
recognized. An error intermediate text 
word, which indicates that the statement is 
too long and should be subdivided, is 
generated and placed at the end of the 
intermediate text words for the statement 
containing the error. 



MODIFYING INTERMEDIATE TEXT 



As intermediate text words are being 
reordered, they are modified, depending on 
the operators and operands, to a form 
closely resembling an instruction format. 
The contents of the adjective code field 
for arithmetic operators (unary minus (u) , 



ASSIGNING REGISTERS 



Registers are assigned by Phase 15 
according to the adjective code encountered 
and the mode of the operands. There are 
eight registers (general registers 0, 1, 2, 
and 3; floating-point registers 0, 2, 4, 
and 6) that may be assigned by Phase 15. 
When a. register is required for a particu- 
lar operation and one is not available, the 
contents of the required register are 
transferred to a work area. That register 
acquires "available" status and is then 
used for the operation. 

Register assignments are made by Phase 
15 according to the following rules: 

• The instruction generated for the add 
operator and the floating-point multi- 
ply operator requires that one of its 
operands be in a register. The 
instruction generated for the multiply 
operator for integer quantities 
requires that the multiplicand (left 
operand) be in an odd register. The 
even register that precedes the multi- 
plicand must be made available, unless 
it already contains the multiplier. 

• The instruction generated for the sub- 
tract operator and the divide operator 
for real quantities requires that its 
left operand be in a register. 

• For integer division, the dividend must 
be in an even-odd register pair. 

• A work register is assigned to each 
subscript expression to aid in the 
computation of subscript expressions by 
Phase 20. 

• Exponentiation requires library subpro- 
grams; therefore, a specific register 
is required to contain the result of 
the subprogram execution. 

• Registers are assigned to single and 
double in-line functions, as follows: 

There are eight single-argument , in- 
line functions: IF IX, FLOAT, DFLOAT, 
SNGL, DBLE, ABS , lABS, and DABS. 
Instructions are generated to perform 
the functions of the SNGL and DBLE 
in-line functions. For the remaining 
single-argument, in-line functions, a 
word in the following format is gener- 
ated: 
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1 byte 1 byte 2 bytes 

Depending upon the specific in-line 
functionr up to three registers are 
assigned by Phase 15,. For ABS, lABS, 
and DABS, only an argument register is 
required. This register is indicated 
in the Rl field; the R2 field is made 
zero. For IFIX, FLOAT, and DFLOAT, 
three registers are required: an argu- 
ment register, a result register, and a 
work register. The argument register 
is indicated in the Rl field, the 
result register in R2. The work reg- 
ister is the register preceding Rl. 

For in-line functions with two argu- 
ments , an in-line call word is generat- 
ed with the same format as for single- 
argument, in-line functions. Phase 15 
assigns a register to each argument in 
a double-argument, in-line function. 
The first argument register is 
indicated in the Rl field; the second 
argument register is indicated in the 
R2 field. Rl is used as the result 
register. 



• DO loops are examined to determine if 
the DO variable is redefined, or if a 
DO loop is nested to a depth greater 
than 25. 

• Arithmetic IF statements are examined 
to determine if the arithmetic expres- 
sions contain valid symbols. They are 
also examined to determine if more or 
fewer than three statement nximbers have 
been specified. 

• Statement numbers are examined to 
ensure that they are uniquely defined 
and do not indicate transfers to nonex- 
ecutable statements. 

• If a FUNCTION subprogram is being com- 
piled, a check is made to determine 
whether the subprogram name is defined. 

• The members of an argument list are 
examined to determine whether they are 
valid. If a particular list has a 
required length, that list is examined 
to determine if it is of the required 
length. 

If any of the designated error condi- 
tions are encountered, an intermediate text 
word, which contains an adjective code 
indicating an error and a number represent- 
ing the specific error, is generated and 
placed at the end of the intermediate text 
words for the statement in which the error 
was detected. 



CREATING ARGUMENT LISTS 



To assist Phase 25 in the generation of 
the object module instructions, a list of 
arguments is created when an adjective code 
is encountered that represents a call to a 
subprogram or to a statement function. The 
argument list is preceded by an intermedi- 
ate text word that defines the specific 
function call- The first word of the 
argument list contains the number of argu- 
ments in the list, and is followed by an 
intermediate text word for each argument. 
The total number of arguments in all lists 
created by Phase 15 is kept in the communi- 
cation area to be used by Phase 20 process- 
ing. 



PHASE 20 (lEJFRAAO) 



Phase 20, the sixth processing phase of 
the compiler, is entered either after the 
completion of Interlude 15 for SPACE compi- 
lations, or after the completion of Phase 
15 for PRFRM compilations. The major func- 
tions of the phase are: 

• Processing of statements that require 
subscript optimization. 

• Processing of statements that affect, 
but do not require, subscript optimiza- 
tion. 



CHECKING FOR STATEMENT ERRORS 



As each statement is processed. Phase 15 
checks for specific error conditions. Gen- 
eral format errors as well as specific 
errors connected with DO statements, arith- 
metic IF statements, statement numbers, and 
argument lists are noted. Following are 
the error checks performed by Phase 15: 



• Creating the argument list table. 

Phase 20 increases the efficiency of the 
object module by decreasing the amount of 
computation associated with subscript 
expressions. A subscript expression can 
recur frequently in a FORTRAN program. 
Recomputation at each occurrence is time- 
consuming and results in an inefficient 
object module. Therefore, Phase 20 



34 



performs the initial computation of any 
given subscript expression and assigns a 
register which, at object time, contains 
the result of this computation. Phase 20 
then modifies (that is, optimizes) the 
intermediate text for subsequent occurren- 
ces of this subscript expression. This 
intermediate text optimization consists 
essentially of replacing the computation of 
the subscript expression, at each recur- 
rence, with a reference to its initial 
value (that is, to the register that con- 
tains the result of the initial 
computation) . The subscript intermediate 
text for each subsequent occurrence of the 
subscript expression can be optimized in 
this manner as long as the values of the 
integer variables in the expression remain 
unchanged. 

In addition, the following functions are 
performed by Phase 20: 

1. Generation of ESD card images for: 



a. 



b. 



Implied external references to 
required library exponentiation 
subprograms. 

Implied external references to 
IHCFCOME (that is, IBCOM#) . 
Implied external references to 
IHCCGOTO (that is, CGOTO#) . 
(IHCCGOTO is an implicitly called 
library subprogram that aids in 
the execution of computed GO TO 
statements by supplying the 
object-time branch addresses. ) 



2. Generation of TXT and RLD card images 
for literals generated by Phase 20 and 
argument list table entries. 



3. Generation of calling sequences to 
IHCIBERR (that is, IBERR#) When source 
statement errors are encountered. 
(Refer to Appendix G for a description 
of the IHCIBERR object- time library 
subprograrr . ) 

4. Printing of a storage map for all 
literals generated by Phase 20, and 
for all implied external references 
made by the source module being com- 
piled, if the MAP option is specified. 

5. Allocation of storage for the branch 
list table for SF expansions and DO 
statements . 



Upon completion of Phase 20 processing, 
control is passed either to Phase 30 (if 
the NOLOAD option was specified and source 
module errors were detected) , or to 
Phase 25. 

Figure 9 illustrates the data flow with- 
in Phase 20. 

Chart 10 illustrates the overall logic 
and the relationship among the routines of 
Phase 20. Table 17, the routine directory, 
lists the routines used in the phase and 
their functions. 
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Figure 9. Phase 20 Data Flow 
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PROCESSING OF STATEMENTS THAT REQUIRE 
SUBSCRIPT OPTIMIZATION 



Phase 20 scans the input text for state- 
ments that may require subscript optimiza- 
tion, subscript expressions may occur in 
the following statements: 

• Arithmetic. 

• CALL. 

• Arithmetic IF. 

• Input/output lists (input/output lists 
are treated as statements by Phase 20) . 

When Phase 20 encounters one of these 
statements containing a subscripted vari- 
able, the subscript optimization process 
begins. 

An index mapping table (refer to Appen- 
dix B, Figure 21), containing all informa- 
tion pertinent to a subscript expression, 
is used to aid subscript processing. When 
the index mapping table indicates the first 
occurrence of the current subscript expres- 
sion, a register is assigned and a corres- 
ponding entry is made in the index mapping 
table. When a register is not available, 
the register that is currently assigned to 
the subscript expression of least dimension 
is reassigned to the current subscript 
express ion- 

If the current subscript expression has 
been encountered previously, the intermedi- 
ate text for its computation can be 
replaced effectively by a reference to the 
register assigned at the first encounter. 
However, redefinition of any integer vari- 
able in the expression invalidates the 
previous computation and prohibits the 
assignment of the same register to the 
current subscript expression. In this 
case, recomputation is necessary and anoth- 
er register must be assigned for the sub- 
script expression. 

During the subscript optimization pro- 
cess. Phase 20 may be required to generate 
literals connected with the array displace- 
ment associated with any given subscript 
expression. (Refer to Appendix E for a 
discussion of the calculation of an array 
displacement. This explanation includes a 
description of the offset and CDL 
(constant, dimension, and length) portions 
of an array displacement.) Literals are 
generated by Phase 20 under the following 
conditions : 

• When the optimization routine encoun- 
ters a value outside the addressable 
range of through 4095 bytes as a 
result of adding the offset (calculated 
in Phase lOE) to the displacement of 
the array variable (calculated in Phase 
15) , an offset literal is generated. 



The generation of an offset literal 
allows Phase 25 to produce instructions 
involving these subscripted variables 
without having to assign a new base 
register. 

• Phase 20 generates a literal for each 
component of the CDL portion of the 
array displacement associated with a 
subscript expression except for the 
first component if it is a power of 2. 
In this case, that power, instead of 
the address for the literal C1*L, is 
placed in the subscript text. 

The preceding discussion of subscript 
optimization applies to subscript expres- 
sions that are neither constant nor asso- 
ciated with a dummy subscripted variable. 
These two conditions are discussed in the 
following paragraphs. 

Phase 20 does not assign a register to a 
constant subscript expression which, when 
added to the offset portion of the array 
displacement, lies within the addressable 
range of through 4095 bytes. However, if 
this computation lies outside the above 
range, a register is assigned for this 
constant and an entry is made in the index 
mapping table. 

In addition to normal optimization, a 
base register is assigned to any dummy 
variable so that the variable may be 
addressed during execution of the object 
module. This assignment is entered in the 
index mapping table. 



PROCESSING OF STATEMENTS THAT, AFFECT, BUT 
DO NOT REQUIRE, SUBSCRIPT OPTIMIZATION 



In addition to previously mentioned 
statements that require subscript optimiza- 
tion, various other statements that can 
affect the subscript optimization process 
are processed by Phase 20. 



DO and READ Statements 



The DO and READ statements sometimes 
cause the redefinition of the integer 
variable (s) in a subscript expression. Any 
integer variable that is redefined becomes 
a bound variable. Any encounter of a bound 
variable causes Phase 20 to examine the 
subscript expressions that are assigned 
registers in the index mapping table. A 
bound variable in a subscript expression 
invalidates any previous computation for 
that expression and causes a new register 
to be assigned for that expression. 
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Referenced Stateirent Numbers 



PHASE 25 (lEJFVAAO) 



When a statement number is referred to 
in other statements (for example, a GO TO 
statement) , Phase 20 does not know if the 
values of previously encountered integer 
variables can still be used by subscript 
expressions containing these variables. 
Because any given variable may now be a 
bound variable. Phase 20 deletes all reg- 
ister assignments (in the index mapping 
table) for subscript expressions involving 
that variable. 



Subprogram Argument 



Any subprogram argument that is an inte- 
ger variable causes redefinition of that 
variable and, therefore, invalidates any 
previous computations of subscript expres- 
sions containing that variable. All reg- 
ister assignments (in the index mapping 
table) for subscript expressions involving 
that variable are deleted. 



Phase 25, the seventh processing phase 
of the compiler, is entered after the 
completion of Phase 2 0. The main functions 
of the phase are; 



• Generation of object module instruc- 
tions. 

• Completion of object module tables. 



Phase 25 creates the object coding for 
the FORTRAN source module from the inter- 
mediate text entries and the overflow table 
(refer to Appendix C) . TXT card images for 
instructions are generated and then written 
on the SYSLIN data set (if the LOAD option 
is specified) and/or the SYSPUNCH data set 
(if the DECK option is specified). 



Several tables (branch list table for 
statement numbers, branch list table for SF 
expansions and DO statements, and base 
value table) are used by the object module 
during execution of the instructions gener- 
ated by Phase 25. These tables are assem- 
bled in their final form by Phase 25. 



CREATING THE ARGUMENT LIST TABLE 



A count of the number of arguments 
contained in the source module for subpro- 
gram and SF (statement function) calls is 
passed to Phase 20 via the communication 
area. This number is used by Phase 20 to 
allocate storage for the argument list 
table. Phase 20 allocates a word (4 bytes) 
for each argument, and inserts the relative 
address of each argument in the argument 
list table. 

If an argument is a subscripted vari- 
able, its address is not known at this 
time. Instructions are generated to load 
the address of this argument into the 
argument list table at object- time. 

The table is used at object-time to 
provide the addresses of argument lists to 
the subprograms and SFs being called. 
Refer to Appendix F, Figure ^IS, for the 
format of the argument list table. 

For each subprogram name or SF name 
encountered. Phase 20 generates the 
appropriate calling sequence. A register 
is used to supply the referenced subprogram 
or SF with the address of its argtament 
list. Phase 20 also generates RLD and TXT 
card images for each entry in the argument 
list table. 



In addition to the above functions. 
Phase 25 generates: (1) a listing of ref- 
erenced statement numbers if the MAP option 
is specified, and (2) an object module 
listing if the object listing option is 
specified and if the object listing facili- 
ty of the compiler has been enabled. The 
object module listing contains the machine 
language instructions generated by Phase 25 
and their equivalent assembly language 
instructions. The equivalent assembly lan- 
guage instructions are generated by an 
object listing module (lEJFVCAO) that Phase 
2 5 loads (via the LOAD macro-instruction) 
into main storage. 



Upon completion of Phase 25 processing, 
control is passed to Phase 30 (to generate 
error/warning messages and to process the 
END statement) . 



Figure 10 illustrates the data flow 
within Phase 25. 



Chart 11 illustrates the overall logic 
and the relationship among the routines of 
Phase 25. Table 19, the routine directory, 
lists the routines used in the phase and 
their functions. 
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Figure 10. Phase 25 Data Flow 



GENERATION OF OBJECT MODULE INSTRUCTIONS 



Phase 25 creates the object module 
instructions for the FORTRAN source module 
from the intermediate text entries and the 
overflow table. The resultant object 
module instructions are in the RR, RX, and 
RS formats of the System/3 60 instructions. 



The control routine (PRESCN) for Phase 
25 obtains each intermediate text entry and 
examines its adjective code. The adjective 
code determines which Phase 25 subroutine 
is to process the current entry or the next 
series of entries. The processing subrou- 
tine generates the required object coding. 

Intermediate text entries for operations 
within arithmetic expressions are almost in 
a final instruction format as a result of 
Phase 15 processing. The intermediate text 
words generated by Phase 15, for arithmetic 
expressions, contain all the elements 
required for the RX format instruction: 
operation code, result register, base reg- 
ister, and displacement. When Phase 25 
encounters an adjective code indicating an 
arithmetic expression, control is passed to 
the routine (RXGEN) that generates RX for- 
mat instructions . 



If a subprogram is being compiled. Phase 
2 5 generates an epilog table when the 
FUNCTION or SUBROUTINE adjective code is 
encountered. The epilog table provides 
Phase 2 5 (when it encounters the RETURN 
statement) with the information necessary 
for the generation of instructions that 
return the new values of variables, used as 
parameters, to the calling program. This 
information consists of the following: 



Length and address of the 
the subprogram. 



variable in 



• The relative position of the variable 
in the parameter list of the calling 
program. 

Refer to Appendix B, Figure 22, for the 
format of the epilog table. 



COMPLETION OF OBJECT MODULE TABLES 



Several tables are used by the object 
module during the execution of the instruc- 
tions generated by Phase 25. These tables, 
assembled in their final form by Phase 25, 
are: 



other intermediate text entries still 
resemble the output generated by Phase 14. 
An adjective code identifies the type of 
entry and possibly several entries that 
follow it. Various Phase 25 subroutines 
analyze these entries and generate the 
appropriate instructions. 



• The branch list table for referenced 
statement numbers. 

• The branch list table for SF expansions 
and DO statements. 

• The base value table. 
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Branch List Table for Stateirient Numbers 



Phase 12 allocated storage for a branch 
list table (refer to Appendix F, Figure 43) 
for referenced statement numbers. Each 
statement number referenced by a GO TO, 
computed GO TO, IF, or DO statement was 
assigned a number relative to the start of 
the branch table. This relative number was 
placed in the chain field of the statement 
number entry in the overflow table (refer 
to Appendix C) . 

When an intermediate text entry for a 
statement number definition is recognized 
by Phase 25, the corresponding overflow 
table entry is obtained, and the relative 
number, assigned by Phase 12, is used to 
determine the position of the statement 
number in the branch table. The value of 
the location counter is placed in this 
position and is the actual relative address 
of that statement. 

Two instructions are generated for the 
portion of a FORTRAN statement that ref- 
erences a statement number. The first 
instruction loads the address portion of 
the proper entry in the branch table into a 
general register; the second instruction 
branches to the address placed in that 
general register. 



Branch List Table for SF Expansions and DO 
Statements 



A second branch list table is completed 
by Phase 25 for statement function (SF) 
expansions and DO statements. Phase 14 
assigned a unique number to each SF and 
placed this number in the pointer field 
portion of the intermediate text entry for 
each SF. Phase 25 uses this number to 
assign a location in this second branch 
list table when it encounters an SF adjec- 
tive code. The address of the first 
instruction in the SF expansion in question 
is placed in this location. Any statement 
referencing this SF uses the number of the 
SF to obtain this location in the branch 
list table, and branches to the address in 
the location (that is, to the beginning of 
the SF expansion). 

Phase 25 also assigns each DO statement 
a location in this branch list table. The 
address of the second instruction of the DO 
loop in question is entered in the proper 
location. The object module instruction 
that controls the iteration of the DO loop 
obtains this location in the branch list, 
and branches to the address in the location 
(that is, to the beginning of the DO loop). 
Refer to Appendix F, Figure 44, for the 



format of the branch list 
expansions and DO statements. 



table for SF 



Base Value Table 



The base value table (refer to Appendix 
F, Figure 46) is continually generated by 
the various phases of the compiler as base 
registers are required for the object cod- 
ing. An object module can only use general 
registers 4, 5, 6, and 7 as base registers. 
(When the object module is entered at 
object-time, these registers are initial- 
ized from entries in the base value table.) 
If the base register requirements for the 
object module extend beyond the four avai- 
lable registers, the base value table is 
used to take special action. 

During compilation (prior to Phase 25), 
the value for each base register to be used 
by the object module is inserted in the 
base value table, regardless of the general 
register number used as the base register. 
The first entry in the base value table is 
the value placed in register 4; the second 
refers to register 5; etc. 

For a source module for which the com- 
piler assigns registers 4 and 5 to ref- 
erence data in COMMON and assigns registers 
6, 7, and 8 to reference data and instruc- 
tions in the object module, the base value 
table contains the following values: 



r T T T T T 1 

I Register | 4 | 5 | 6 | 7 | 8 | 

I Value I I 4096 | | 4096 | 8192 | 

L J. X X J. J. J 



The value 8192 is initially assigned to 
general register 8, and that register num- 
ber is entered in the intermediate text 
entry requiring the base register.. Howev- 
er, when Phase 25 encounters this inter- 
mediate text entry with a base register 
number of 8, an instruction is generated to 
load the value 8192 into register 7, and 
general register 7 is used as the base 
register in this instruction. 

In general, when a base register other 
than 4, 5, 6, or 7 is encountered by Phase 
25, the base value table is used to obtain 
the value of that base register, and an 
instruction is generated to load that value 
into register 7. Register 7 is used as the 
base register in the instruction at object 
time. 
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PHASE 30 (lEJFXAAO) 



Phase 30 is the eighth and last process- 
ing phase of the compiler. The phase may 
be entered either after the completion of 
Phase 20 processing if the NOLOAD option 
was specified and errors were detected in 
the source module or after the completion 
of Phase 25 processing. The functions of 
the phase are: 

• Producing error and warning messages. 

• Processing the END statement. 

When Phase 3 is entered from Phase 20, 
only the first function (producing error 
and warning messages) is performed. Howev- 
er, when Phase 30 is entered from Phase 25, 
both functions are carried out. 

Upon the completion of Phase 30 process- 
ing, control is passed to Phase 1. 

Figure 11 illustrates the data flow 
within Phase 30. 



the error or warning condition) from the 
mode/type field of that intermediate text 
word. This nuiPber is used as an indexing 
value to obtain the length and address of 
the actual message corresponding to the 
specific error or warning detected. 

The length of the message is obtained 
from the message length table. The address 
of the message is obtained from the message 
address table. The actual message is 
obtained from the message text table. 
(Refer to Appendix B for a description of 
the use and format of the message tables.) 

When the message length and the message 
address are obtained. Phase 30 then prints 
the corresponding message on the SYSPRINT 
data set. (For a description of the messa- 
ges capable of being generated by the 
compiler refer to the publication IBM 
System/360 Operating System: FORTRAN IV (E) 
Programmer's Guide. ) 



Chart 12 illustrates the overall logic 
and relationship among the routines of 
Phase 30. Table 20, the routine directory, 
lists the routines used in the phase and 
their functions. 



PRODUCING ERROR AND WARNING MESSAGES 



Phase 30 checks the adjective code of 
each intermediate text word for an error or 
warning condition. If one is encountered. 
Phase 30 obtains the error or warning 
number (set up by the phase that detected 



PROCESSING THE END STATEMENT 



When the intermediate text entry for the 
END statement is recognized by Phase 25, 
control is passed to Phase 30. Phase 30 
first produces any error or warning messa- 
ges detected by earlier phases of the 
compiler. Phase 30 then writes both branch 
list tables and the base value table onto 
the output data set(s). Because all three 
of these tables must be relocatable, all 
entries in the tables are entered in RLD 
card images, as well as in TXT card images. 
Phase 30 also creates the END card image 
for the object module. 
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Figure 11. Phase 30 Data Flow 
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SECTION 3; CHARTS AND ROUTINE DIRECTORIES 

The following charts describe the overall logic of the major components of the FORTRAN 
TV (E) compiler. Routine directories are included for those components that contain 
numerous routines and subroutines. 

Flowchart Conventions 



FUNCTIONAL SYMBOLS 



»*««***»«*«««*«•«««« 



SAMPLE FLOWCHART 



»C1»»«»»«» 



»»»C2»»»»»»« 
USER ENTRY 



»*«*»C3»***«*« 



THE TERMINAL SLOCK IS USED TO SHOW USER ENTRY 
AND EXIT POINTS WHEN THE PROGRAM BEING 
FLOWCHARTED IS AVAILABLE TO AN IBM CUSTOMER. 
IT IS ALSO USED AS AN EXIT CONNECTOR WHEN 
THE TO LOCATION IS TO NO SPECIFIC CHART AS IN 
A MULTIPLE USE SUBROUTINE. 



»«****E1* 



USER EXIT 



PREDEFINED 

PROCESS 

BLOCK 



GOTO 

•SUBNM ZCAl* 



THE INSTRUCTION AT SYMBOLIC LOCATION GOTO 
CALLS A SUBROUTINE NAMED SUBNM. THE LOGIC OF 
SUBNM IS SHOWN ON CHART ZC STARTING AT BLOCK 



LINE JUNCTION 



* •*«*H2*««*****« 

• *VARIABLE ReTURN»<- 



Section 3: Charts and Routine Directories 
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Chart 01. Phase 1 (lEJFAAAO/IEC^PAABO) Overall Logic Diagrart) 



lEJFAAAO 
(INITIAL ENTRY) 



» « 

• CALLING « 

• PROGRAM « 



SEE TABLE 2 FOR A BRIEF 
DESCRIPTION OF THE 
FUNCTION OF EACH PHASE 1 
.ROUTINE/SUBROUTINE. 



lEJFAABO 
(SUBSEQUENT ENTRIES) 



••••A3********* 
» * 

» CALLING * 
> PHASE • 

••••«••*••••••• 



*—•—•—•-•—•—•—•—• 
*LOAO INTERFACE • 

• MODULE . • 

• (lEJFAGAO) • 

•••••••»••••*•••• 



.* SPACE «. 

OR PRFRM 

OPTION 

.SPECIFIED. 



'•n 



• ••**C 1 ••••••*••• 

* * 

* LOAD PRINT « 

* BUFFER MODULE * 

* (lEJFAKAO) • 

* • 
••••••••••••••••• 



FLUSH OUTPUT » 
BUFFERS FOR • 
BLOCKED I/O * 

• 
»•*«*****«*«**** 



*****C5* ********* 

* * 

* FREE ALL • 
>* MAIN * 

* STORAGE » 

* * 
***************** 



» PROCESS • 
» "PARM" • 
» OPTIONS • 

»•••••••••••••••• 



«-•—•—•—*—*—*-*-* 
>♦ LOAD SORSYM * 

* MODULE • 

* (lEJFAXAO) * 

«****•*•••»•••••• 



L 



*****D3********** 

* * 

* CLOSE ALL * 

* DATA CONTROL * 
» BLOCKS » 

* * 
***************** 



•••••D4********** 

* • 

* DELETE * 

* PERFORMANCE * 

* MODULE * 

* (lEJFAPAO) * 
***************** 



*• •* 
*• •* 

* NO 
*••• 

* * 

* Fl *-> 

* * 
**•« V 

• *• 
Fl *. 

•*' SPACE **. 

*.0R PRFRM OPTN. 

*. SPECIFIED.* 



*•** 

* * 

* Gl »-> 

* • 
**** 



.*'SIZE< ». 
.» GREATER *. YES 
->*.THAN OR EQUAL. •- 
*.TO 17504 .* 



L 



SPACE 



•****G1 •*•***•*** 

* OPNFILES » 
*—*—*—*—*—»—*—*—* 

* OPEN DCBS * 

* FOR SPACE • 

* COMPILATION » 
****•**•***•••**• 

***• 



• ••• 
* 

>* Gl • 

« 
***• 

• t** 

•—•—•—•—•-•—»—•—• 

* LOAD PERFORM. *< 
» MODULE * 

* (lEJFAPAO) * 

***************** 



-* OPEN DCBS • 
» FOR PRFRM « 
• COMPILATION « 

*•••***•••••••••« 



•****E3***«*« 
• 

* FREE 

* ALL MAIN 
» STORAGE 
* 
************* 



*****F3********** 

* DELETE * 

* PERFORMANCE * 
•MODULE IF PRFRM^ 

* COMPILATION • 

* * 
***************** 



*****G3********** 

* * 

* DELETE * 
» PRINT BUFFER * 

• MODULE • 

• • 
••••••••••••••••• 



*«*«*E4 ••••****« 

♦ RESTART 
*—*-*-»—*—*—*—*- 

* CLOSE ALL 

• DATA CONTROL 

* BLOCKS 
***************** 



n 



* HI •-> 

* * 
• »•• 

V 
•••••HI •••••••••* 

* START! • 
*—•—*—*—•—•—•—•—• 

* LOAD PHASE 7 *< 
» (lEJFEAAO) » 

* • 
••••••••••*•••••• 



•••••H3^^^^^***** 

* • 
« DELETE * 

* INTERFACE * 

* MODULE * 

* * 
•**•••••••••***** 



XC TL 
V 

••••J 1 ••••••••• 

» « 

* PHASE 7 « 

» « 

•••••**••*•***• 



****J3** ******* 
» CALLING « 
» PROGRAM « 

» « 

*••*•**••****** 
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Table 2. Phase 1 Main Routine/Subroutine Directory 

Function 



r T- 

I Routine/Subroutine | 



|. 1 ^ 

Loads the performance module into irain storage if the PRFRM option] 
is specified. 



LOAD 

OPNFILES 

OPTNSCAN 

RESTART 
I RUNCMPLT 

STAPTl 



Opens data control blocks for compiler data sets as indicated by| 
switches (in the communication area) for options. 

Scans the compiler options and sets appropriate switches in the] 
communication area. 

Closes all data control blocks for compiler data sets. 

Closes all data control blocks for compiler data sets, frees all| 

[main storage allocated to the compiler, and returns control to thej 

calling program. 

Performs housekeeping and loads the interface module, print buffer j 
module, and Phase 7. 

L X J 



Section 3: Charts and Routine Directories 
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Chart 02. Interface Module (lEJFAGAO) Routines 



PRTCTRL » 



* CALLING « 

» ROUTINE « 



««««»A4 ********** 

• SIORTN 02E1 * 

->* CHECK RESULTS * 

* OF WRITE « 

♦ » 

««•««««*«»««««««» 



» ANY *. 

DCBS TO BE . 
t. TCLOSED .* 



MOVE CARRIAGE * 

CONTROL CHAR. » 

TO OUTPUT * 

BUFFER » 

»«««»««*««««*«»* 



ERROR *. YES 

OR END-OF- .* 

•DATA SET .* 



•*«*«C1 *•••**•*•* 

* TCLOSE THE « 

* DATA SETS * 

* INDICATED IN « 
*THE LINKAGE TO • 

* THIS ROUTINE « 
»#»»»»»»»»#•«♦»*« 



»**»C2*»»**»**» 

•NEXT PHASE/ 1 NT * 

->»AS INDICATED IN* 

* CALLING RTN * 

••••*•••*••*«•* 



«—«—*—*—#—«—«—*—* 
♦WRITE CONTENTS « 

* OF OUTPUT « 

* BUFFER * 



K«**Dt ********* 
I- « 

► CALLING • 

► ROUTINE •* • 



*. 
*. 

» « I 
» Fl «-> 

«*«« V 

Fl 



«««««E2********** 

* * 

* ISSUE CHECK « 
>* MACRO- « 

* INSTRUCTION * 

* « 
•••«••»•*••«••«*« 



♦»«*«F2 ********** 

* » 

* ISSUE READ * 
>» MACRO- « 

* INSTRUCTION * 
» * 



ERROR 
OR END-OF- 
. DATA SET . 



*»*»»F 3** ******* 

• SET ERROR 

* OR END-OF- 

♦ DATA SET 
« INDICATOR 

««««*•«*«««««»«« 



*«»«E5******* 
» CALLING 
» ROUTINE 



»*«««G 1 ********** 
t « 

► ISSUE WRITE » 
» MACRO- *- 
• INSTRUCTION * 
w « 



««««G4********* 
» CALLING 
> ROUTINE 



*PATCH INDICATED* 
-♦AREA IN CALLING* 

* ROUTINE * 

* » 



AN INSTRUCTION TO BRANCH TO THESE ROUTINES IS A 
PART OF THE COMMUNICATION AREA. THESE INSTRUCTIONS 
ARE LABELED FNEXT • FIORTN. FPRTCTRLt AND 
FPATCH FOR SNEXT. SIORTNt PRTCTRL, AND 
PATCH, RESPECTIVELY. WHEN THESE 
ROUTINES ARE NEEDED, A BRANCH TO 
THE PROPER INSTRUCTION IN THE 
COMMUNICATION AREA IS EXECUTED. 



THE CALLING ROUTINE MAY BE WITHIN 
PHASE. WITHIN ANOTHER INTERFACE 
MODULE ROUTINE, OR WITHIN THE 
PERFORMANCE MODULE. 



COMPILE-TIME I/O RECOVERY PROCEDURE 



»*»«H3********* 

INTERFACE MOD * 

AND BSAM * 

ROUTINE *** * 

*************** 



♦*• THE I/O SUPERVISOR IS 

ENTERED FROM THE SIORTN 
OF THE INTERFACE MODULE 
WHEN A READ. WRITE, OR 
CHECK MACRO-INSTRUCTION 
IS ISSUED. 



• ••« 

* » 

* J2 ♦ 

« * 
**** 



* * 

* CALLING * 
» PHASE « 

«»*****♦«««•*** 
CONTINUES 
NORMAL 
PROCESSING 



»*«*«J2^* **♦***♦♦ 

♦ RETURN TO * 
*BSAM, INTERFACE* 

-♦ MODULE, AND •- 
•PHASE REQUEST- * 

* ING I/O • 
««»«*«***««»««««♦ 



r 



I/O *. YES 

ERROR IN .♦ 

IDS .• 



*»♦** J 4«« »«»«*«** 

* RETRY * 
>* APPROPRIATE ♦- 

* NUMBER OF » 

* TIMES » 
•••»•«*«•«««•«•«• 



.« HAS 
->*. ERROR BEEN 
♦.CORRECTED. 



••••K I ********* 
» * 

» SCHEDULER « 



ISSUES ABEND 
MESSAGE AND 
THEN CONTINUES 
NORMAL PROCESSING 



••♦••K2**»**^^^*^ 

* * 
•PHASE 1 PASSES * 

-♦ ABORT CODE TO *<- 

* SCHEDULER * 



••♦♦♦K3»^ ♦•••*••• 
» ♦ 

* CALLING PHASE * 
-* BRANCHES TO *< 

* PHASE 1 * 

* * 
*♦••♦*»*♦♦♦••**•• 



••«**K4»*«^***«** 

* * 

* CALLING PHASE ♦ 
-»SETS ABORT BIT *< 

* IN COMM AREA » 

* * 
••*«••*♦•••*••♦•• 



♦»**»K5«*»»»»*»** 

• RETURN ABORT * 

* CODE TO BSAM. * 
-» INT MOD, AND * 

♦PHASE REQUEST- ♦ 

♦ ING I/O * 
*••*•♦♦♦••♦*•**♦* 
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Chart 03. Perforimance Module (lEJFAPAO) Routines 



PIORTN 

• CALLING * 
» PHASE * 



PNEXT 

•*«*A3« 



» CALLING • 
» PHASE « 



«****A4*««**«**** 

• BUILD TCLOSE • 
» LIST AS » 

->* INDICATED IN *- 

• LINKAGE • 

• PARAMETER * 



«««««A5**»******* 
• TCLOSE THE * 
» INDICATED » 
>* DATA • 
» CONTROL » 
« BLOCKS • 



.•IS BLOCKING*. NO 

•FACTOR GREATER.* 

*. THAN 1 .* 



PERFORM 
REQUESTED 
OPERATION 



*»««*34»««««««*«» 

* « 
*OaTAIN NAME OF • 
*NEXT PHASE FROM*<- 

* BLOL TABLE • 

* • 
«*«»**««««***«*«* 



YES .* NEXT *. 

'.COMPONENT AN . 

••INTERLUDE.* 



*«**»C1 ••••****** 

* OBTAIN LAST « 
•BUFFER ADDRESS * 

• FOR THE DATA * 

* SET USED FOR « 

• OPERATION * 
«**«»«««**»**«*** 



PTESTWRl 

•«***D1 •*••••••** 

• MOVE LOG RCD * 
*INTO OUTPUT BUF* 
•UPDATE BUF PTR.*<- 

• , AND LOG RCD • 

• COUNT • 
•««**«**«*««•**«• 



**** 
« * 
* G2 • 



D2 ». 

.* WAS *. 

.LAST REQUEST*, 

•FOR THIS DATA. 

♦. SET A .* 

*.READ .* 

*. .* 

* YES 



.* FIRST *. 
•*l/0 REQUEST*. 
->*.FOR THIS DATA. 
». SET .* 



»«»»CS**»**^^** 
* NEXT PHASE « 
•«•••••*•*••••* 



OUTPUT 

BUFFER 

FULL 



«»***pi«**««««*** 



• RESET LOGICAL 

• RECORD COUNT 
•SET "WRITE 



UNT • • 1 

. BIT.^ 



.* ANY ». 

.♦ RECORDS 
. LEFT TO BE 
••DEBLOCKED. 



PGETRCO 

*««*«F2*««******« 

• MOVE NEXT LOG * 
» RCD INTO * 
*REQUESTED AREA.* 

• UPDATE LOG * 

• RCD COUNT • 



•«•••••••«•«*•«•• V 


•••«•••«••«•««•» 


**«* 






•••• * • 


*•*• 




* « • F5 • 


« • 




• Gl • 1 • • 

• • 1 ••»« 


• G2 •-> 




• » 




»**« V 


• *•• 




TSTFLUSH .*. PNORMRET 




Gl *. 


V 


• * •• 


••«*G2 ••••••••• 


.* MAS A •• NO 


« 


>». FLUSH .« 1 


• CALLING 


••REQUESTED.* 


• PHASE 


*• •* 


«•«•*•••••*•*•• 


• • •* V 




* YES ••«• 




» * 




• G2 • 




• « 




*♦** 







*«**«H1 *•••••**** 

*SET 'IKRITE" BIT* 

* FOR TRUNCATED » 

* BLOCK * 

* « 

•**#♦•****•»***** 



***««E3** ««*»*««« 

* SIORTN 02E1 • 

>* INITIATE » 

* CHECK-READ * 

* OPERATION • 

****«**«««*•***«* 



•"n 



••••*F4»**«*^**«* 
« INITIALIZE * 
•LOGICAL RECORD • 

* COUNT TO VALUE •- 

* OF BLOCKING » 

* FACTOR • 
•«**•••»••**••••» 



• Gl * 

• < 



•• WAS •• 
» A VALID •• N 

SHORT BLOCK .»- 
». READ .* 



••••G4********* 
» ABNORMAL « 
» RETURN TO * 
» CALLING PHASE « 

••»•••••••»*••« 



*«**«E5*^***^^^*^ 

* « 

* SET • 
>• 'READ" » 

* BIT * 
« * 
*«**«*«««*»««*«*» 

• *** 
« * 

* F6 «-> 

* * 
««** 



• PERFORM • 

• REQUESTED • 

• OPERATION * 

«•*••«*••*««•••*« 



•«**«G6*******»** 



••••••*•••••••••« 



««** 
» » 

» F5 • 
» • 
• ••• 



•••••J3*«««^***** 

• SET LOGICAL • 

• RECORD COUNT 

• ACCORDING TO 

• LENGTH OF 

• SHORT BLOCK 
***************** 



n 
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Chart OH, Phase 7 (lEJFEAAO) Overall Logic Diagrair 



••••AS********* 
» « 

» PHASE 1 « 



»**«««« 



SEE TABLE 3 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 7 ROUTINE/ 
SUBROUTINE. 



»»»«»««»« 



.* SPACE ». 
» OR PRFRM ». PRFRM 
COMPILATION •* 



«-*—•-•—*—•- 



OBTAIN 

MAIN 
STORAGE 



*-»—»-«-•- 



• OBTAIN » 

• MAIN • 

• STORAGE • 



IN ORDER TO DELETE 
PHASE 7 FROM MAIN 
STORAGEt PHASE 7 MUST 
TRANSFER CONTROL TO 
ANOTHER LOAD MODULE. 
PHASE 7 DOES THIS BY 
MOVING A ROUTINE THAT 
DELETES PHASE 7 INTO 
THE PRINT BUFFER MODULE 
AND BY TRANSFERRING CON- 
TROL TO THE PRINT BUFFER 
MODULE. THE LOGIC OF 
THE DELETE ROUTINE IS 
AS FOLLOWS. 



••••Gl •••»••••• 

t PHASE 7 « 

» « 



••««•••••«••••••» 



»»»»J2»»»»»»»»» 
» « 

» PHASE 1 • 
» (lEJFAABO) « 

RESTART OR 

TERMINATE 

COMPILATION 



««*«K1 ********* 

* « 

* PHASE lOD * 

* (lEJFGAAO) * 

«««»**«***«***» 



* FREE * 

* EXCESS MAIN * 

* STORAGE * 

•**•*•••***•***•* 



-*-*-*-*- 



♦<- 



«•*• 

••••«G3***«****** 

• ALLOCATE » 

• MAIN STORAGE 
» TO RESIDENT 

• TABLES AND • 

• INT. TEXT BUFS • 



* CONSTRUCT 
» RESIDENT 
» TABLES 
»***•**••••••**« 



*****J3«****»*»** 
« * 

» MOVE DELETE * 

* ROUTINE INTO * 

* PRINT BUFFER * 

* MODULE • 
***************** 



****K3** ******* 
» DELETE RTN * 
» IN PRINT * 
» BUFFER MOO • 

******»»«««**** 



* FREE * 

* EXCESS MAIN • 

* STORAGE * 

***************** 



ENOUGH 

STORAGE 

LEFT 



*»***H4********** 

• • 

• FREE ALL * 
» MAIN STORAGE * 

• OBTAINED * 
..* BY PHASE 7 » 

»*••*••«•••••*••* 



**»*«J4 ********** 
« * 

* ALTER PRFRM * 

* COMPILATION * 

* TO SPACE * 
» COMPILATION * 
****»**»*«*«**»»* 



*»•• 
> • 
t J3 • 



**»»*F5*****»*»** 

* * 

* ALLOCATE * 
->* MAIN STORAGE * 

* FOR SPECIAL * 

* I/O BUFFERS * 
*»****••»••«***•* 



YES .* ENOUGH 

r«. STORAGE 
*. LEFT 
». .* 

V *• •* 

•••• • NO 

• G3 * 1 

• • V 
*•*• •••* 

* * 

* J3 * 

* « 
• *»* 
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Table 3. Phase 7 Main Routine/Subroutine Directory 

Function 



r T- 

I Routine/Subroutine | 



h- 



1 DELETED? 

FRSEGM 
I GETSTRG 
IMESSGOUT 

SEGALLOC 

START 
I TENPATCH 



Deletes Phase 7. 

Frees transient work area and any unusable irain storage. 

Obtains main storage for the coitipiler. 

1 Writes messages on SYSPRINT. 

Completes the construction of SEGMAL (begun in GETSTRG), and builds 
necessary dictionary and overflow table structure (independent of 
I the source module being compiled), 

1 Performs Phase 7 initialization. 

Builds patch table by reading and then converting patch records. 



Section 3; Charts and Routine Directories 
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Chart 05. Phase lOD (lEJFGAAO) Overall Logic Diagram 



( i 

t PHASE 7 * 

I- 4 



«**«*B3***««***'»* 
* START « 

» PHASE * 
•INITIALIZATION * 
» • 



SEE TABLE 5 FOR A BRIEF 
DESCRIPTION OF THE 
FUNCTION OF EACH PHASE lOD 
ROUTINE/SUBROUTINE. 



* # 
» OBTAIN A ♦ 

* SOURCE MODULE ♦ 

* STATEMENT * 

* • 



#«*»*D3**»**»*»*» 
♦ENTER STATEMENT* 
*0N SYSPRINT IF » 

* SOURCE OPTION ♦ 

* IS SPECIFIED * 
« « 



• ••••ES*****-*-**** 

* CLASS * 

* DETERMINE * 

♦ STATEMENT * 

• TYPE • 



V 
.*. 

F3 *. 

.* SF OR •• YES 
*. EXECUTABLE .* 



*«««F4 ****«**«« 

« t 

->* PHASE lOE < 



• NO 



* 
* 
♦ <- 



* PROCESS 

SOURCE 
STATEMENT 



«•••««««««««««««« 



«**«*(34«« *«*«*««« 

• EOSR * 

->* CHECK FOR * 

• END-OF- * 
» STATEMENT * 

«««« «**«••« «««««« 



SEE TABLE 4 FOR A LIST 

OF THE STATEMENTS PROCESSED 

BY PHASE lOD AND THE MAIN 

ROUTINES AND SUBROUTINES 

THAT PROCESS THESE 

STATEMENTS. 
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Table 4. Phase lOD Statement Processing 



r T 1 

Statement Type |Main Processing Routine] 



Main Subroutines Used ++ 



REAL 



INTEGER 



DOUBLE PRECISION 



REAL/INTGER/DOUBLE ** | 
^ 

REAL/INTGER/DOUBLE ♦* j 
^ 

REAL/INTGER/DOUBLE ** I 



Control is passed to DIM 



DIMENSION 



DIM 



4- 



GETWD, RCOMA, CSORN, DIMSUB, WARN/ERRET 



COMMON 



COMMON 






DIM, PUTBTXT 



EQUIVALENCE 



EQUIV 






GETWD, CSORN, WARN/ERRET, PUTBTXT, RCOMA 



EXTERNAL 



EXTERN 



** 



GETWD, RCOMA, CSORN 



FUNCTION 



FUNCT 



SUBROUTINE 



SUBRUT 



♦ I 
** I 

* I 
** I 



GETWD, CSORN, PUTX 



-4-- 



FORMAT 



FORMAT 



* I 
X- 



GETWD, WARN/ERRET, PUTX 



* Text is created when processing this statement. 

♦♦ Table entries may be prepared when processing this statement. 

++ All routines except FORMAT use ERROR as an error exit for errors that cause termina- 
tion of the statement processing. FORMAT has nc error exit- 



Section 3: Charts and Routine Directories 
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Table 5. Phase lOD Main Routine/Subroutine Directory 

Function 



r T" 

I Routine/Subroutine | 



h 



H 



CLASS 

COMMON 
CSORN 

DIM 

DIMSUB 

EOSR 
ERROR 

EQUIV 

EXTERN 

FORMAT 

FUNCT 

GETWD 

INTGER/REAL/DOUBLE 
LABLU 

LABTLU 
LITCON 
LOADE 
PRMBLD 

PDTBTXT 

PUTX 

RCOMA 

START 

SUBROT 

SYMTLU 

WARN/ERRET 



Determines which routine will process the statement type. May use 
LOADE and LABLU. 

Processes COMMON statements. 

Processes names, constants, data set reference nuirbers, and DO 
parameters. May use LITCON and SYMTLU. 

Processes the variables of DIMENSION, COMMON, INTEGER, REAL, and 
DOUBLE PRECISION Statements. 

Scans the subscript portion of a statement that is dimensioning an 
array. 

Processes the end of statement. 

Enters error intermediate text for errors that cause termination of 
the processing of that statement. 

Processes EQUIVALENCE statements. 

Processes EXTERNAL statements. 

Processes FORMAT statements. 

Processes the header card image for a FUNCTION. 

Obtains a word or element in a statement and gets a new card image, 
if necessary. Prints the card if SOURCE option requested. May use 
PRMBLD. 

Processes INTEGER, REAL, and DOUBLE PRECISION statements. 

Enters only statement number information into the overflow table. 
Uses LABTLU. 

Enters all information into the overflow table- 
Processes literals. 
Performs end-of -phase processing and passes control to Phase lOE. 

Performs all operations associated with I/O Interfacing and buffer 
switching. 

Puts COMMON and EQUIVALENCE text into SYSUT2 text buffers. 

Puts entries into the SYSUTl text buffers. 

Enables skipping of redundant commas in a parameter list. 

Performs initial phase housekeeping. 

Processes the header card for a SUBROUTINE. 

Enters symibols and/or units into the dictionary. 

Enters warning and error intermediate text for error and warning 
conditions that permit the continuation of the processing of the 
statement. 
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Chart 06. Phase lOE (lEJFJAAO) Overall Logic Diagram 



t * 

^ PHASE lOD * 

t * 

*************** 



»»#»«B3»»*******» 
* START « 
»—♦—«—*—»—*—*-*—* 
» PHASE * 
♦INITIALIZATION ♦ 
» » 



SEE TABLE 7 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE lOE ROUTINE/ 
SUBROUTINE. 



*«»#*C3********** 
-» -» 

♦OBTAIN A SOURCE^ 

* MODULE ♦ 

* STATEMENT * 

* * 
***************** 



««'«««D3 ♦♦♦♦♦♦♦♦♦♦ 
♦ENTER STATEMENT^ 
♦ON SYSPRINT IF ♦ 

♦ SOURCE OPTION ♦ 

♦ IS SPECIFIED ♦ 
» ♦ 



»*»■»♦£ 3^^^^^^^^^^ 

♦ CLASS ♦ 
*-♦-*—*-♦—»-»-♦—«■ 

♦ DETERMINE ♦ 

♦ STATEMENT ♦ 

♦ TYPE ♦ 







V 






.♦. 






F3 *. 






• ♦ « 




• ♦ 


END 


# 


a 


STATEMENT 




* 


'«. ,* 



YES 



*«*««G3*«'**'*****"* 

* « 

* * PROCESS * 

* SOURCE *< 

* STATEMENT ♦ 

* * 
***************** 



*****f^********** 

* END • 

->« PROCESS •- 

* END • 

* STATEMENT • 



♦ EOSR ♦ 

->* CHECK FOR * 

♦ END-OF- ♦ 

♦ STATEMENT ♦ 



• EXIT ♦ 

■>*PERFORMS FINAL * 

• PHASE lOE * 

• PROCESSING * 
***************** 



* * 

* INTERLUDE lOE ♦<- 
» * 



SEE TABLE 6 FOR A LIST OF 
THE STATEMENTS PROCESSED 
BY PHASE lOE AND THE 
MAIN ROUTINES AND SUB- 
ROUTINES THAT PROCESS 
THESE STATEMENTS. 



V 
.♦. 

H5 ♦. 

.♦ SPACE ♦. 
SPACE .♦ OR PRFRM * 
♦. COMPILATION 



♦ . .♦ 
♦. . ♦ 

♦PRFRM 



♦♦♦♦J5^^^^**^^^ 

♦ < 

♦ PHASE 12 * 
« t 

*************** 



Section 3: Charts and Routine Directories 
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Table 6. Phase lOE Statement Processing 



r T T- 

I Statement Type) Main Processing Routine) 



Main Subroutines Used ++ 



ARITHMETIC 



ARITH 






-+- 



CSORN, PUTX, GETWD, SUBS (ARITH may pass control 
to ASF, DC, and GO) 



SF 



ASF 






CSORN, GETWD 



CALL 



CALL 



* 



PUTX, GETWD, CSORN (exits to ARITH) 



DO 



DO 



* 



ARITH, CSORN, GETWD, LABLU, PUTX 



GO TO 



COMP GO TO 



GO 



GO 



♦ 

** 



-^ 



ARITH, GETWD, LABLU, PUTX, CSORN, WARN/ERRET 



♦ 



IF 



SUEIF 



♦ ♦ 



GO, PUTX (exits to ARITH) 



READ 



WRITE 



READ/WRITE 



READ/WRITE 



* 
*♦ 



■I GETWD, CSORN, PUTX, LABLU (exits to ARITH) 



♦ ♦ 



FORMAT 



FORMAT 



+- 



GETWD, WARN/ERRET, PUTX 



CONT 



RETURN 



CONT/RETURN 
CONT/RETURN 



-^ GETWD, WARN/ERBET, PUTX 



-+- 



STOP 



PAUSE 



STOP/PAUSE 
STOP/PAUSE 



^ GETWD, PUTX (exits to CLASS) 



+- 



BACKSPACE 



REWIND 



ENDFILE 



BKSP/ 



REWIND/ 



ENDFIL 



♦ * 









CSORN, GETWD, PUTX 



♦ Text is created when processing this statement. 

♦* Table entries may be prepared when processing this statement. 

++ All routines except FORMAT and CONT/RETURN use ERROR as an error exit for errors 
that cause termination of the statement processing. 



52 



Table 7. Phase lOE Main Routine/Subroutine Directory 



j Routine/Subrout ine 
I" 



Function 



ARITH 

ASF 

BKSP/REWIND/ENDFIL 

CALL 

CLASS 

CONT/RETDRN 

CSORN 

DO 
END 
EOSR 
ERROR 

EXIT 

FORMAT 

GETWD 

GO 

LABLD 

LABTLU 
LITCON 
PRMBLD 

PUTX 

READ/WRITE 

START 

STOP/PAUSE 

SUB IF 

SUBS 

SYMTLU 

WARN/ERRET 



Processes arithmetic statements. Nay use SUBS. 
Processes the parameter list of a statement function- 
Processes the BACKSPACE, REWIND, and ENDFILE Statements. 
Processes the name of a CALL statement. 

Determines which routine will process the statement type. 
Processes CONTINUE and RETURN statements. 

Processes names, constants, data set reference numbers, and DO 
parameters. May use LITCON and SYMTLU. 

Processes the DO statem.ent and implied DOs. 

Processes the END statement. 

Processes the end of the statement. 

Enters error text into the intermediate text and terminates the 
processing of current statement. 

Performs end-of-phase processing. 

Processes FORMAT statements. 

Obtains a word or element in a statement and gets a new card 
image, if necessary. Prints the card if SOURCE option is 
requested. May use PRMBLD. 

Processes the statement number branched to by an IF, GO TO, or 
comiputed GO TO statement. 

Enters only statement number information into the overflow 
table. Uses LABTLU. 

Enters all information into the overflow table. 

Processes literals. 

Performis all operations associated with I/O interfacing and 
buffer switching. 

Puts entries into the intermediate text buffers. 

Processes the portion of the statement preceding the I/O list. 

Performs Phase lOE initialization. 

Processes the STOP and PAUSE statements. 

Begins the IF statement processing. 

Processes subscript variables. 

Enters symbols and/or units into the dictionary. 

Processes warning and error conditions that do not prevent 
completion of the processing of the current statement. 
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Chart 07, Phase 12 (lEJFLAAO) Overall Logic Diagram 



«««*A1 ********* 
» « 

• PHASE lOE OR « 
» INTERLUDE lOE * 

•••••••«•***••* 



SEE TABLE 8 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 12 ROUTINE/ 
SUBROUTINE. 



-*—•—«—*—• 



•••••••••••**••*» 



»-»-*-»-»-»-*-*-* 
•ASSIGN ADOR TO * 
•VAR.AND ARRAYS • 
* IN COMMON • 

•••***»*••*****•* 



COMALO USES THE 
ALOHRN/ALERET. 
SORSYM**t GETCOMI. 
AND GETCOM SUBROUTINES 



*—*-*-•—«—*- 



• PROCESSES * 

• EQUIVALENCE * 

• TEXT • 

****•«••••***♦»•• 



****04**«**««*« 
t * 

► COMALO * 

t * 

*«•**«*«*»*»*«« 



*—*—»-»—•—*-*—*-* 

• INCR. LOCATION * 
•CNTR BY SIZE OF* 

* COMMON • 

•*«*•**«******«** 



EXTCOM USES THE 

ALOWRN/ALERET 

SUBROUTINE 





«««■ 


« 


EQUSOl 




«■ 


«-- 


-♦—»—»—*■ — #- 


-♦- 


*—* 


♦PROC. FIRST 


NAME* 


* 


IN AN EQUIV. 


Ik 


» 


GROUP 




» 




*** 



EQUSOl USES THE 
GETEQUIVt EQSRCH, 
RENTER/ENTR. AND 
ALOWRN/ALERET 
SUBROUTINES 



•—*-»—*-»—*—*—*—* 

• ASGN ADDR TO * 

* 08L-PREC VAR, • 
*ARRAYS IN DICT,* 

•*•••»•»••******* 



DPALOC USE THE 
INTOCT. EQRSRCH. 
SORSYM**! AND 
DELETE SUBROUTINES 



*PROC. REMAINDER 

* OF EQUIV. 

* GROUP 



EQUS03 USES THE 
GETEGUIV, EQSRCH. 
RENTR/ENTR. AND 
ALOWRN/ALERET 
SUBROUTINES 



*—*—•—*■.*-*—•—»—* 
* ASGN ADDR TO * 
« REAL AND INT * 
*VAR AND ARRAYS • 

**»*•«*••«*****«« 



SALO USES THE 
INTDCT. EQSRCH, 
AND SORSYM** 
SUBROUTINES 



•PROC.ALL EQUAT- 
» ED VAR AND 
•ARRAYS IN COMM. 



EQUS14 USES THE 
SWROOT. EQSRCH. 
AND ALOWRN/ALERET 
SUBROUTINES 



*ASGN ADDRESSES * 

* TO EQUATED * 

* VAR * 

*•*•»••••••*••••• 



ALOC USES THE 
INTDCT. ALOWRN/ 
ALERETf EQSRCH, 
AND DELETE SUB- 
ROUTINES 



•***H4 ********* 
» * 

* EXTCOM * 

**«***«**«**««« 



»—»-•-*—*—*—»—*—» 
• PROC DICT ENT • 
•FOR EXT AND IN * 
•LINE FUNCTIONS • 

•••*••••••••••••« 



LDCON USES THE 
INTDCT, ESD*. 
DELETE. RLD*. 
AND GOFILE SUB- 
ROUTINES 



*»*»J3»»«^^^^** 
* « 

» PHASE 14 « 

*•*****«******« 



*-*-*-»-^-*-*-»-1l 
•PREPARES BR.LST* 

• TABLE FOR * 

• STAT. NOS. * 
•••••«•••••••••** 



->« REPL PTRS TO •- 
*VAR USED IN SUB* 
*SCRIPT EXPR/ADR* 

*•*•*•••*••«•••»• 



>• ASSIGN ADDR » 
•TO LITERALS IN » 
• DICTIONARY » 

••*•**•*••*•*•**• 



SORLIT USES THE 
TXT*, ESD*, 
SORSYM*^, GOFILE, 
AND RLD^ SUBROUTINES 



5U 



Table 8. Phase 12 Main Routine/Subroutine Directory 

Function 



r T- 

I Routine/Subroutine | 



|. + ^ 

Assigns addresses to all equated variables. 

Processes the error and warning conditions detected in Phase 12. 

Allocates a branch list position for each referenced stirt. no. 

I Assigns addresses for variables or arrays to be placed in COMMON andj 
removes these variables from the appropriate dictionary chain. 



ALOC 

ALOWRN/ALERET 
ASGNBL 
COMALO 

DELETE 
DPALOC 

EQSRCH 
EQUIVP 
EQUSOl 
EQUS03 

EQUS14 

ESD 

EXTCOM 

GETCOM/GETEQUIV 

GETCOMI 
GOFILE 
INTDCT 
LDCN 

RENTER/ENTR 

RLD 

SALO 

SORLIT 

SORSYM 

SSCK 

STARTA 
SWROOT 
TXT 



Removes dictionary entries from chain. 

Assigns addresses to all double-precision variables or arrays 
entered in the dictionary. 

Checks for variables previously equated to a root. 

Performs equivalence processing. 

Processes first name in an EQUIVALENCE group. 

Processes remainder of EQUIVALENCE group and switches root if| 
necessary. 

Processes all equated variables and arrays in COMMON. 

Processes ESD card images. 

Enters size of COMMON in the communication area. 

Updates COMMON or EQUIVALENCE text pointer and reads in text records 
[when necessary. 

Initializes pointers and I/O parameters for COMMON- EQU IVALENCE text. 

1 Generates card images for data sets SYS LIN and/or SYSPUNCH. 

Retrieves entries from the dictionary. 

Processes dictionary entries for functions and external references. 
I Also prepares ESD section definition card images for the object] 
I module and COMMON areas. 

Enters variables in the EQUIVALENCE table either as a root or as anj 
equated variable. 

Processes RLD card images. 

Assigns addresses to real and integer variables and arrays. 

Assigns addresses and generates text card images for all literals; 
performs the final processing of the phase. 

Arranges and prints the storage map for all arrays, constants, andj 
external references assigned addresses by Phase 12. 

Replaces pointers to variables used in subscript expressions withj 
addresses assigned by Phase 12. 

Initializes Phase 12. 

Changes a root previously entered. 

Processes text card images. 

L X J 
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Chart 08. Phase 14 (lEJFNAAO) Overall Logic Diagrair, 



»■ * 

» PHASE 12 * 
* 1 

♦»♦♦#«»♦*»»«»»* 



**iHHtB2** ******** 
* PHINT « 

♦-»—♦—■»—»-«—»—«—» 
» PHASE * 
♦INITIALIZATION « 
« ♦ 



SEE TABLE 11 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 14 ROUTINE/ 
SUBROUTINE. 



* C2 »-> 



*»»»«C 2** ******** 

* PRESCN * 

* OBTAIN STATE- * 

* MENT AND DE- * 

* TERMINE TYPE * 
«*»»*«»»«»**»»*♦♦ 



END *. YES 
STATEMENT .* 



.* 
. .* 

* NO 



.* FORMAT #. YES 
f. STATEMENT .* 



* END * 
»—♦—«—«—»—«—»—♦—» 

->* PERFORMS *- 
♦FINAL PHASE 14 * 

* PROCESSING * 
**♦**♦♦»«****«*»» 



•#«#»E3** ******** 

* FORMAT * 
*-*-*-*-*-*-#-*-# 

->* «* PROCESS * 

* FORMAT * 

* STATEMENT * 



««*««F2 ********** 



♦ PROCESS 
STATEMENT 



«««««««•««••««««« 



D4 *. 
.* SPACE «. 
.» OR PRFRM * 
->*. COMPILATION 

*• .■* 

*. .* 



»«»«#E4- ********** 
» * 

* DELETE MAIN « 
» STORAGE «- 
» OCCUPIED BY * 

* DICTIONARY * 
*«*»*«#***»»*»»■»# 



FORMAT USES THE 
CKENDOt GETWDA. 
INTCON. AND MSG/ 
MSGMEM SUBROUTINES 



*«»»05* ******** 
« * 

->* PHASE 15 * 

« ■* 



**««E5* ******** 

* « 

->* INTERLUDE 14 * 

*************** 



f C2 * 

I ♦ 
**** 



SEE TABLE 9 FOR A LIST 
OF THE STATEMENTS PROCESSED 
BY PHASE 14 AND THE ROUTINES 
AND SUBROUTINES THAT PROCESS 
THESE STATEMENTS. 



»« SEE TABLE 10 FOR A LIST 
OF THE FORMAT CODES THAT 
MAY APPEAR IN A FORMAT 
STATEMENT AND THE SUB- 
ROUTINES THAT PROCESS 
THESE CODES. 
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Table 9. Phase lU Stateirient Processing (FORMi^T statements Excluded) 



I Statement Type 



Main Processing Routine 



Main Subroutines Used 



FORMAT 



FORMAT 



See Table 10 



+- 



WRITE 



READ 



READWR 



READ 



-I UNITCK, ERROR, MSGMEM 



■+- 



SUBROUTINE 



FUNCTION 



SUBFUN 



SUBFUN 



■I RDPOTA*, MSGMEM, RPTRB 



CONTINUE 



SKIP 



MSGMEM 



BACKSPACE 



REWIND 



ENDFILE 



BSPREF 



BSPREF 



BSPREF 



UNITCK, MSGMEM 



DO 



DO 



CKENDO, ERROR, MSGMEM, RDPOTA* 



STATEMENT 
NUMBER 



LABEL 



None 



SF 



ASF 



PASSON, CEM, RPTRB 
CKENDO, MSGMEM, SKIP 



RETURN 



RETURN 



STOP 



STOP 



CKENDO, SKIP 
CKENDO, SKIP, RDPOTA* 
None 



PAUSE 



PAUSE 



INVALID 



INVOP 



ERROR 



WARNING 



ERWNEM 



ERWNEM 



None 



END MARK 



MSG 



None 



IF 



ARITH 



CALL 



GO TO 



PASSON 



PASSON 



PASSON 



PASSON 



CEM 



COMP GO TO 



CGOTO 



CKENDO, RDPOTA, MSG, MSGMEM 



j* Replacement of 

L 



dictionary pointers 
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Table 10. Phase 14 FORMAT Statement Processing 



r 

L _ _ _ _ 


Processing 


the 


Various 


FORMAT 


Codes 


1 

1 
1 


r 

1 FORMAT Code 

L 










T 

1 
_l 






Main 


1 

Subroutine Used | 

^ J 


r — — 

1 blank 
L_ _ 










T 

I 
_ 1 










1 

BLANKZ 1 


r — — 

1 D 










T 

! 
1 










FMDCON 1 


r ~ ~ " 

1 E 

L . 










t — 

1 

_j. 










FMECON 1 


r — 

1 F 










T 

1 










FMFCON 1 


r ** ~ ~" 

1 I 

L_ _ _ _ 










T 

1 
L 










FMTINT 1 


r — 

1 A 

L_ _ _ -. 










t 

i 

L 










FMACON 1 


r - - -- 

1 X 

L _ _ 










T 

1 










FMXCON 1 


r 

1 P 










t 

1 
L _ 










FSCALE 1 


r ~ — 

1 + 

L_ _ _ _ 










T 

1 
-X — 










FMPLUS 1 


r — - - 

L _ _ _ . 










t 

1 

4. _ 










FMINUS 1 


r 

1 ( 

L_ _ 










T 

1 
-X _ 










LPAREN 1 


r — — 

1 / 










T 

1 
1 










FSLASH 1 


r ~ ~ — _ _ _ - 

1 T 

L _ _ _ 










t 

1 
_X 










FSUBST 1 


r _ _ - 

1 H 










T 

1 
± 










FHOLER 1 


1 f 

L _ _ _ _ 










T 

1 
J. _ 










FQUOTE 1 


r _ _ — _ 

1 r 










T 

1 
J. 










FCOMMA 1 


r ~ ~ " 
1 ) 

L ^ _ _ 










T 

1 
_X _ 










RPAREN 1 
__ _ — _ J 


Table 11. Phase lU Main 


Routine/Subroutine 


Dir 


ectory 








r ~ T ~ 

1 Rout ine/Subrout ine | 

1- 4. _ - 














Functi 


on 




_ _ _ _ — _ _^ 

1 

_ _ _ J 


r T 




















_____ _ ^ 



ASF 

BLANKZ 

BSPREF 

CEM/RDPOTA/RPTRB 

CGOTO 

CKENDO 

DO 

END 

ERROR 

ERWNEM 



Processes the SF definition text. 

Processes any blanks encountered while scanning a FORMAT statement. 

Processes BACKSPACE, REWIND, and ENDFILE statement text. 

Completes text processing for arithmetic, BACKSPACE, REWIND, END- 
FILE, GO TO, DO, CALL, IF, PAUSE, and SF definition statements. 

Processes text for computed GO TO statements. 

Determines if a statement has invalidly ended a DO loop. 

Performs diagnostic checks on the DO variable and the DO parameter. 

Processes END text. 

Generates intermediate text entries for error conditions detected in 
Phase 14. 

Processes error and warning text. 



(Continued) 
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Table 11. Phase lU Main Routine/Subroutine Directory (Continued) 

Function 



r T- 

I Routine/Subroutine | 



I" 



FCOKMA 

FHOIER 

FMACON 

FMDCON 

FMECON 

FMFCON 

FMINUS 

FMPLUS 

FMTINT 

FMXCON 

FOR>!AT 

FQUOTE 

FSCALE 

FSLASH 

FSUBST 

GETWDA 

INTCON 

INVOP 

LABEL 

LPAREN 

MSG/MSGWEM 

PAS SON 

PAUSE 

PHINT 

PRESCN 

READ/READWR 

RETURN 

RPAREN 

SKIP 

STOP 

SUBFUN 

UNITCK 



Processes any commas found in a FORMAT statement. 

Processes the H specification in a FORMAT statement. 

Processes the A specification in a FORMAT statement. 

Processes the D specification in a FORMAT statement. 

Processes the E specification in a FORMAT statement. 

Processes the F specification in a FORMAT statement. 

Processes the •-' specification in a FORMAT statement. 

Processes the '+' specification in a FORMAT statement. 

Processes the T specification in a FORMAT statement. 

Processes the X specification in a FORMAT statement. 

Performs and directs some FORMAT processing. May use INTCON. 

Processes the apostrophe specification in a FORMAT statement. 

Processes the P specification in a FORMAT statement. 

Processes the slash format specification in a FORMAT statement. 

Processes the T specification in a FORMAT statement. 

Scans FORMAT statements. 

Converts integer constants to binary and checks their validity. 

Processes invalid adjective codes. 

Processes statement nvimber definition text. 

Processes left parentheses. 

Inserts error/warning messages into text and detects end of stmt. 

Processes CALL, IF, and arithmetic IF statement text. 

Processes PAUSE statement text. 

Performs phase initialization. 

Performs phase initialization and controls processing of int. text, 

Processes READ/WRITE text. 

Processes RETURN statement text. 

Processes any right parenthesis occurring in a FORMAT statement. 

Processes CONTINUE statement text. 

Processes STOP statement text. 

Processes SUBROUTINE and FUNCTION text entries. 

Checks validity of symbols used to reference a DSRN. 
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Chart 09. Phase 15 (lEJFPAAO) Overall Logic Diagram 



****/\3* ******** 
t * 

f PHASE 14 OR * 
* INTERLUDE 14 * 

««»»*«»♦»»#**«* 



SEE TABLE 14 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 15 ROUTINE/ 
SUBROUTINE. 



♦ B3 *— > 



««-«« 



*****B3** ******** 

* PRESCN ♦ 
*-♦—*—*—«-«-#—»-♦ 

* OBTAIN STATE- » 
*MENT AND DETER-* 
*MINE STMT TYPE * 



.* END «. YES 

*. STATEMENT .* 

*. .* 



*»**«C4 *•*♦*»**** 
* MOPUP ♦ 
»-»—♦-»-«—*—•—*-» 
->» PERFORMS »- 
♦FINAL PHASE 15 * 
» PROCESSING * 
*♦*#*»*#»»«♦»*»»« 



«»**C5» **♦*»**« 

* 4 

* INTERLUDE 15 < 

* i 
*»*«»*»»*»««♦♦» 



»*»««D2********** 



* PROCESS 
STATEMENT 



»*»*#♦*»#»»»««««« 



D3 *. 

.» *. 
NO .* CAN * 

».STMT CONTAIN 

*. ARITH .* 

*.EXPR .» 

*. .* 



*»**«D4 *****♦**»* 

• FOSCAN** * 
*-*-*-*—*-*—*-*-* 

->* CONTROLS THE ♦ 

* REORDER AND * 
♦MOD OF INT TXT * 



D5 ♦. 
.» SPACE ». 
.* OR PRFRM * 
->». COMPILATION 



> . * 
♦PRFRM 



»*»«*E3 ♦♦♦♦♦♦♦♦♦♦ 
MSGNEM/MSGMEM/MSG ♦ 



-»—«—♦—»—«- 



-»— ♦ 



->♦ PROC REM OF ♦<- 
♦STMT AND FORMS ♦ 
♦E/W TXT IF NEC ♦ 



♦»**E5 ♦♦♦♦♦♦♦♦♦ 
I- 1 

f PHASE 20 ^ 

*♦**««**»«*«»»» 



SEE TABLE 12 FOR A LIST 
OF THE NONARITHMETIC 
STATEMENTS PROCESSED BY 
PHASE 15 AND THE MAIN 
ROUTINES AND SUBROUTINES 
THAT PROCESS THESE STATEMENTS. 



«♦ FOSCAN PROCESSES ARITHMETIC. 

ARITHMETIC IF. STATEMENT FUNCTION 
AND CALL STATEMENTS. SEE TABLE 13 
FOR A LIST OF THE OPERATORS THAT MAY 
APPEAR IN THE ABOVE STATEMENTS AND 
THE MAIN ROUTINES AND SUBROUTINES 
THAT PROCESS THESE OPERATORS. 
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Table 12. Phase 15 Nonarithinetic Statement Processing 



r 

1 Statement 


Type or 


Adjective Cd 


-T" 

1 


Main Processing 


Routine 


1 


~T~ 
_j 


Main Subroutines Used 


1 COMPUTED GO TO 








1 
1 


CGOTO 










T 


LAB, CEM 


1 DO 










1 

1 


DO 










t 
_ 1 


LABI, CEM 


1 END MARK 










1 
1 


MSG 










T 
-J— 


None 


1 ERROR 










1 
1 


ERWNEM 










T 
_J._ 


None 


1 GOTO 










T 
1 


GOTO 










T 


LAB, CEM 


1 INVALID 










1 
1 


INVOP 










t 
-J. . 


ERROR 


1 I/O LIST 










1 
1 


BEGIO 










t 
_4._. 


MSGMEM 


1 STATEMENT 


NUMBER 








1 


LABEL 










— |- — 

L . 


ERROR 


1 WARNING 










1 

1 


ERWNEM 










t 
_ 1 


None 


1 READ/WRITE 










1 
1 


D02 










T — 
_X_. 


CEM 


1 RETURN/CONTINUE 








1 
1 


SKIP 










1 


None 


1^ Routine MSGNEM/MSGMEM/MSG 
1 These two routines return 

L 


is entered from all 
control directly to 


these routines 
PRESCN. 


except ERWNEM and LABEL. 
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Table 13. 
r 



Phase 15 Arithmetic Operator Processing 



T T 

1 Main Processing | 
Operator | Routine | Main Subroutines Used 
+ + 

ADD 1 ADD 1 FREER, SAVER*, SYMBOL, MODE, MVSBXX, FINDR, 
1 1 LOADRl 

j. L „_ ^ 


ARGUMENT | COMMA | CKARG, ERROR, WARN, SAVER*, INLIN2 , INARG, 

+ + 

CALL FORCING j CALL j MSG 


1 1 SYMBOL, MODE, LOADRl, CHCKGR*, SAVER*, FREER, 
DIVIDE j MULT j DIV, MVSBXR, MVSBXX 
+ 1 

EQUAL 1 EQUALS | ERROR, TYPE, MODE, MVSBRX, WARN, MVSBXR, 
1 j ASFDEF 
1 X _ _ _ _ _ . 


_ _ _ ^ — ^ _ — _ __ _ — ___. 

EXPONENTIATION | EXPON | SYMBOL, MODE, CKARG 
1 + 

1 1 • _ _ _ _ _ . 


_ — ^ _ — _ ^ _ _ — — _ _ _ _ . 

ILLEGAL I INVOP | ERROR 
1 + 

LEFT PAREN j LFTPRN | CKARG, ERROR, ARTHIF, WARN, LOADRl 

X — — 4.— _____ __ _ _ _ 


._ ^ _ _ -t- ________ 

MULTIPLY j MULT | SYMBOL, MODE, MVSBXX, LOADRl, CHCKGR*, FREER 
+ _ + 

RIGHT PAREN | RTPRN j ERROR 
+ + 

SUBTRACT 1 ADD | SYMBOL, MODE, MVSBXX, FINDR, LOADRl, FREER, 
1 1 SAVER* 
_ 1 + 

UNARY MINUS | UMINUS | TYPE, FINDR, LOADRl, MVSBRX, INVOP 
+ + 

UNARY PLUS 1 UPLUS j INVOP 
. J. _ _ L _ 


* Specific sections of the SAVER and CHCKGR routines operate upon specific registers 
(general registers 0, 1, 2, 3; floating point registers 0, 2, 4, 6). 
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Table 14. Phase 15 Main Routine/Subroutine Directory 

Function 



r T" 

I Routine/Subroutine | 



f- 



ADD 

ARTHIF 

ASFDEF 

BEG 10 

CALL 

CEM 

CHCKGR 

CKARG 

COMMA 

CGOTO 

DIV 

DO 

D02 

END 

EQUALS 

ERROR 

ERWNEM 

EXPCN 

FINDR 

FOSCAN 

FREER 

FUNC 

GOTO 

INARG 

INLINl 

INLIN2 

INVOP 

LAB 

LABI 



Determines register assignment for add, subtract, multiply, and 
divide operators. 

Processes the statement numbers of an arithmetic IF statement. 

Processes statement function definitions. 

Processes the I/O list of READ and WRITE statements. 

Processes CALL statements. 

Checks for an end mark. 

Obtains a specific general register for assignment. 

Checks the argument in an external call for validity, and ensures 
that the argument has a storage location. 

Processes the argument lists. 

Processes the statement numbers in a computed GO TO statement. 

Processes integer operands of a divide operation. 

Processes DO statements. 

Writes out a text word if not an end mark. 

Determines if the arithmetic IF, arithm.etic, and SF statements were 
processed. 

Processes equal adjective code text. 

Processes error conditions detected in the phase. 

Processes end mark, error, and warning text. 

Processes exponentiation text. 

Finds a register and indicates that it is a register. 

Checks the syntax of arithmetic, arithiretic IF, CALL, and SF 
statemerits , and orders the arithmetic expression text according to a 
hierarchy of operators. Uses END. 

Indicates a register is available. 

Processes one-argument functions. 

Processes statement numbers referenced by a GO TO statement. 

Processes the argument of an in-line function. 

Processes one-argument, in-line functions. 

Processes two-argument, in-line functions. 

Processes invalid adjective codes. 

Checks for illegal statement number references. 

Checks whether label is defined. 

(Continued) 
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Table 14. Phase 15 Main Routine/Subroutine Directory (Continued) 

Function 



r T- 

I Routine/Subroutine | 



I" 



LABEL 

LFTPRN 

LOADRl 

MODE 

MOPUP 

MSGNEM/MSGMEM/MSG 

MULT 

MVSBXR/MVSBRX 

MVSBXX 

PRESCN 

RTPRN 
SAVER 

SKIP 

SYMBOL 

TYPE 

UMINUS 

UPLUS 

WARN 



Checks statement numbers used to indicate the end of a DO loop. 

Process the text for a left parenthesis. 

Enters an operand into a specific register. 

Checks the mode of operands and changes them if necessary. 

Performs final phase processing for Phase 15. 

Processes the remaining text words of a statement and puts out any 
necessary error, warning, and end do text. 

Aids in processing the operands of multiply and divide instructions. 

Processes a left operand subscripted variable. 

Processes a left operand subscripted variable if the right operand 
might also be a subscripted variable. 

Determines what statement type is represented in the text and which 
major routine will process it. 

Processes illegal use of right parenthesis as a delimiter. 

Stores the contents of a specified register into the next available 
work area space. 

Processes RETURN and CONTINUE Statements. 

Checks the left and right operands of an operator. 

Checks each symbol used as an operand. 

Processes unary minus operations. 

Processes unary plus operations. 

Processes warning conditions detected in the phase. 



64 



Chart 10. Phase 20 (lEJFRAAO) Overall Logic Diagram 



• «** A3 *-****"**** 
t * 

f PHASE 15 OR * 
f INTERLUDE 15 * 



«#*«*B3*'**"**'<l"*')>'*'* 
« INIT * 
«-«—*—«—«—«-*—«—« 

* PHASE * 

* INITILIZATION ♦ 
« * 

* * I 

* C3 *->i 

V 

»**»«C 3 ******»»** 

* STATA » 
*—■»—♦—* — »—* — ♦—*—» 
•OBTAIN STMT AND* 
♦DETERMINE STMT » 

* TYPE * 
*♦*♦»##♦»♦*#**»♦* 



SEE TABLE 17 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 20 ROUTINE/ 
SUBROUTINE. 



««**«B4**#*«'»«*«« 

♦ PHEND * 

->»PERFORMS FINAL # 

* PHASE 20 PRO- » 

• CESSING * 
*«»#♦*«###«««♦»*♦ 



.*. 

C4 *. 
,» ANY *. 
.* SOURCE ». NO 

^. MODULE .* 

*. ERRORS .* 



V 
.*. 



END ♦. YES 
STATEMENT .» 



I 

V 

♦♦**C5*»******* 

« i 

->* PHASE 25 < 

* 1 

*************** 



V 

.*. 

04 *. 

.* IS ♦. 

,* 'LOAD' », 

OPTION 

•.SPECIFIED.* 



****D5********* 

» < 

->* PHASE 30 * 

* i 

♦»***•♦**«♦»*♦» 



♦»**«E2 ********** 



* PROCESS 
STATEMENT 



♦**»*♦«♦»♦♦****»• 



E3 



*• 



.* 



* . 



NO .* CAN *. YES 

*.STMT CONTAIN .♦ 

*. SUBSCRIPT.* 
».EXPR .* 



^ T 



->* C5 » 

* » 
**** 

«««*«E4********** 

* * 

* ** PROCESS » 
->* STATEMENT * 

* * 



SEE TABLE 15 FOR A LIST OF- l) 

THE STATEMENTS PROCESSED BY PHASE 20 

THAT DO NOT CONTAIN SUBSCRIPT EXPRESSIONSi 

AND- 2) THE MAIN ROUTINE AND SUBROUTINES 

THAT PROCESS THESE STATEMENTS. 



*♦ SEE TABLE 16 FOR A LIST OF- l) 

THE STATEMENTS PROCESSED BY PHASE 
20 THAT MAY CONTAIN SUBSCRIPT EXPRESSIONSt 
AND- 2) THE MAIN ROUTINES AND SUB- 
ROUTINES THAT PROCESS THESE STATEMENTS. 



Section 3: Charts and Routine Directories 
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Table 15. Phase 20 Nonsubscript Optiinization Processing 



Statement Type 


y 

L 


Main 


Processing 


Routine 


y 

1 


Main Subroutines Used 


DO 






DO 




4. 


BVLSR, RMVEVL 


END DO 


— J. - 




BNDDO 




— f — 
J 


None 


IMPLIED DO 


T 




lOLIST 




— -f- — 
J. _ 


BVLSR, CALSEQ, RMVBVL,SUBVP 


READ 


_4. 




READ 




— T 
J. . 


None 


STATEMENT 
NUMBER 


T 
X — 




LABEL 




— T 
J. 


None 



Table 16. Phase 20 Subscript Optiinization Processing 



Statement 


Type 


y 

1 

4. _ 


Main 


Processing 


Routine 


1 
J 


Main Subroutines Used 


ARITHMETIC* 


T 

1 
1 _ 




ARITH 




1 

1 

_ X _ 


CALSEQ, CKCOD, RMVBVL, SUBVP 


CALL* 




T 

i 




IFCALL 




T 
1 

- 4- - 


BVLSR, CALSEQ, RMVBVL, SUBVP 


IF* 




1 




IPC ALL 




T 

1 


None 



I/O* I lOLIST I BVLSR, CALSEQ, RMVBVL, SUBVP 

± X 

♦ Whenever exponentiation is encountered subroutine ESDRLD processes the exponentiation 
operands. 
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Table 17. Phase 20 Main Routine/Subroutine Directory 

Function 



r T" 

I Routine/Subroutine | 



y- 



ARITH 
1 BVLSR 
1 CALSEQ 
ICKCOD 

DO 
1 DUMPR 

ENDDO 

ESDRLD 
I GENGEN 

IFCALL 

INIT 
lOLIST 

LABEL 
i PHEND 
I READ 

RMVBVL 

STATA 
SUBVP 



Optiiriizes arithmetic statement text. 

Enters bound variables on the bound variable list. 

Processes argument lists. 

Assigns an area and a constant for use by the IFIX, FLOAT, and 
DFLOAT in-line functions. 

Processes DO statements. 

Processes dummy subscripted variables. 

Ensures that the end of a DO loop is recognized. 

[Generates ESD and RLD card images. 

Begins the generation of literals. 

Optimizes the arithmetic expression of an arithmetic IF statement or 
a CALL statement. 

Performs Phase 20 initialization. 

Processes DO variables of an implied DO and I/O lists of READ/WRITE 
statements- 
Modifies register assignments due to referenced statement numbers. 
Performs final Phase 20 processing. 
Processes external references within a READ statement. 

Removes register assignments from the index mapping table for 
subscript expressions that involve bound variables. 

Checks the statement type represented by the text and determines the 
correct Phase 20 processing routine. 

Optimizes subscript expressions. 



Section 3: Charts and Routine Directories 
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Chart 11. Phase 25 (lEJFVAAO) Overall Logic Diagram 



^ PHASE 20 * 



SEE TABLE 19 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 25 ROUTINE/ 
SUBROUTINE. 



* START * 
*—»—•—•-«—♦—»—*—* 

* PHASE * 
♦INITIALIZATION * 

« * 



C3 ». 
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♦.LISTING OPTN , 
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*. .♦ 

♦ . .♦ 
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♦♦♦♦*C 4 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
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♦ ( lEJFVCAO ) ♦ 

♦ ♦ 



> I < 

I 

V 
♦♦•♦♦D3**»*«»^»** 

♦ PRESCN ♦ 
♦-♦—»—♦—♦—»—♦—♦—♦ 
♦OBTAIN TEXT WRD* 
♦+ DET ADJ CODE ♦ 

♦ OR STMT TYPE ♦ 
»»»»*»»»♦♦»»♦»»»» 



♦♦♦♦♦D4**^***^^^* 

♦ END ♦ 
♦—♦—*—♦—«—*—»—♦—» 

->»PERFORMS FINAL * 

♦ PHASE 25 ♦ 

♦ PROCESSING ♦ 
»»««»»«»«*♦«»♦♦♦» 



END 
STATEMENT 



. .♦ 
♦ NO 



♦ * 

♦ DELETE OBJECT ♦ 
♦LISTING MODULE ♦ 

♦ IF IT WAS ♦ 

♦ LOADED ♦ 
♦♦♦♦♦»»»♦»♦*«*♦»« 



♦♦♦♦♦F3+^^»»»^^^^ 

♦ ♦ 

♦ ♦ PROCESS * 

♦ STATEMENT OR ♦ 
♦ADJECTIVE CODE » 

♦ ♦ 
«♦♦♦♦»*♦*♦»»♦♦♦♦♦ 



♦♦♦♦F4««»**^»^* 

t i 

^ PHASE 30 * 
*************** 



SEE TABLE 18 FOR A LIST 
OF THE STATEMENTS AND 
ADJECTIVE CODES PROCESSED 
BY PHASE 25 AND THE MAIN 
ROUTINES AND SUBROUTINES 
THAT PROCESS THE STATEMENTS 
OR ADJECTIVE CODES. 
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Table 18. Phase 25 Statement and Adjective Code Processing 



r T T 

statement or Operation |Main Processing Routine **+* 



t'.ain Subroutines Used 



AOP 



lAOP 



BASCHK 



+- 



Arith expressions in j RXGEN/LM/STM 
approximate instr. foririj 



BASCHK/RROUT, RXOUT 



SF DEFINITION 



JASFDEF* 

4- 



IISTOUTB 



SF USAGE 



I AS FUSE 
■i 



+- 



BASCHK/RROUT, RXOUT 



BACKSPACE 



RDWRT 



BASCHK, ARGOUT, GET, RXOUT 



-+- 



CALL 



j FUNGEN 



BASCHK/RROUT 



COMPUTED GOTO 



I CGOTO 



+- 



BASCHK/RROUT, ARGOUT 



DO 



DOl 



■+- 



-+- 



BASCHK, RXOUT 



END DO 



ENDDO 



BASCHK, RXOUT 



END FILE 



RD^RT 



BASCHK, ARGOUT, RXOUT, GET 



+- 



END I/O LIST 



END 10 



RXOUT 



ERROR 



JIBERR 
•+ 



BASCHK, RROUT 



FUNCTION 



SUBRUT** 



-+- 



+- 



GENBR, GET, RROUT, RXOUT 



FUNCTION CALL 



j FUNGEN 



BASCHK/RROUT, RXOUT 



GO TO 



I TRGEN 



-+- 



BASCHK/RROUT, RXOUT 



IF 



I ARITH I 
-+- 



BASCHK/RROUT 



-+- 



IMPLIED DO 



DOl 



+- 



BASCHK, RXOUT, LISTOUTB 



I/O LIST ITEM 



j lOLIST 

-+- 



-+- 



ARGOUT, BASCHK/RROUT, RXOUT 



LABEL 



LABEL* ♦♦ 



LISTOUTl 



+- 



LOAD MULTIPLE 



JLM 



BASCHK/RROUT, RXOUT 



PAUSE 



I PAUSE 



BASCHK/RROUT, RXOUT 



READ/WRITE 



RDWRT 



BASCHK/RROUT, ARGOUT, RXOUT 



RETURN 



I RETURN 



4- 



BASCHK/RROUT, RXOUT, LISTOUTl 



REWIND 



RDWRT 



BASCHK, ARGOUT, RXOUT 



STOP 



JSTOP 



None 



STORE MULTIPLE 



STM 



4- 



BASCHK/RROUT, RXOUT 



SUBROUTINE 



SUBRUT ♦♦ 



GENBR, BASCHK/RROUT, RXOUT 



SUBSCRIPT 



ISAOP 



BASCHK/RROUT, RXOUT 



♦ Makes an entry in the statement function and DO branch list table. 
♦♦ Makes an entry in the epilog table. 

*** Makes an entry in the statement number branch list table. 

♦♦♦* All of the above routines return control to the PRESCN routine to begin the 
processing of the next text word. 



Section 3: Charts and Routine Directories 
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Table 19. Phase 25 Main Routine/Subroutine Directory 

Function 



r T" 

I Routine/Subroutine I 



h 



AOP 

ARGOUT 

ARITHI 

ASFDEF 

ASFDSE 

BASCHK/RROUT, RXOUT 

CGOTO 

DOl 

END 

ENDDO 

END 10 

FUNGEN/IBERR 

GENBR 

GET 

lOLIST 

LABEL 

LISTOUTB/LISTOUTl 

PRESCN 

RDWRT 

RETURN 

RXGEN/LM/STM 

SAOP 

START 

STOP/PAUSE 

SDBRUT 

TRGEN 



Processes subscript text when the entire subscript expression need 
not be calculated. 

Inserts addresses for arguments into the object module. 

Processes arithmetic IF statements. 

Processes the first text word of a statement function definition. 

Generates instructions to use a statement function at object time. 

Generates RX and RR format instructions. 

Processes computed GO TO statement text. 

Begins processing of the DO statement text. 

Performs the final Phase 25 processing. 

Generates instructions to end a DO loop. 

Processes the end I/O text. 

Processes in-line and library function calls. 

Makes entries to the branch list tables. 

Obtains intermediate text words. 

Processes the I/O list substatement text. 

Processes statement number definition text entries. 

Generates branch list text. 

Determines which routine will process a particular portion of 
intermediate text. 

Processes READ, WRITE, BACKSPACE, REWIND, and ENDFILE Statements. 

Processes RETURN statement text. 

Processes intermediate text entries with adjective codes between 
25 and 8F (hexadecimal) . 

Processes subscript text when the entire subscript ordering factor 
must be calculated. 

Performs phase initialization. 

Generates instructions for the STOP and PAUSE statement text. 

Processes FUNCTION and SUBROUTINE header card text. 

Generates branching instructions for GO TO statements. 
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Chart 12. Phase 30 (lEJFXAAO) Overall Logic Diagrain 



««**A2 ********* 
t * 

* PHASE 20 OR * 

* PHASE 25 * 



SEE TABLE 20 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH PHASE 30 ROUTINE/ 
SUBROUTINE. 
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». 
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r*. OR WARNINGS . 
*. .* 

*. .» 
V *• .* 
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* « I 
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* * 

«««« I 
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* » 



.*. 

E2 *. 

.* *. 

,* LAST *. 
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*. .« 



« « 
* G2 »-> 

G2* 



.* DETERMINE *. PHASE 25 

ENTRANCE .* 

». .* 

*• •* 

♦ . .* 



«««««B4 ********** 

* TWNFIV * 
#-»—♦-*—#—»-•—*-» 
♦PRIMES TEXT BFR* 
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« OF BR LISTS * 
**«#«♦«*»«■»♦»*««* 



»»«»«C4 ********** 
*GENTAB « 

«—»—«—»—♦—♦—•-*—» 
*BUILDS AND IN- * 

* TERNAL TABLE * 

* FOR BR LISTS * 
*»*»♦»•»**«»♦««** 



NXTOUT 

ENDTXT<- 

ANYRLD 



-> TXTOUT 



«««'««04** ******** 
*CHKLBL * 

»—•—»-«—»—*—#—»—♦<- 
*GENERATE TXT + » 
*RLD CARD IMAGES* 
* FOR BR TABLES * 



««««*E4 ********** 
*ZRTXT * 

*-«—»—»-»-«—♦—»-«<- 
* GENERATE TXT * 
*CARD IMAGES FOR* 
*8ASE VALUE TBL » 



«««*«F 4 ********** 
*BASRLD * 

*—»—#—«—»—»—♦—»—«<- 

* GENERATE RLD * 
*CARD IMAGES FOR* 
*BASE VALUE TBL * 

* *«««'*« *«««•***** 



**»«»G4 *♦»***»*** 

* ENDCRD * * 
*-#-«-*-»-»-«-*-*< > TXTOUT 

* GENERATE END * PRINT 
*CARD IMAGE FOR * 
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•««««•««**«««*««« 



->TXTOUT 



-> TXTOUT 



*PHASE 20 



SUBROUTINE ENDCRI 
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•SIZE OF COMMON 
AND THE SIZE OF 
OBJECT MODULE' 
MESSAGE. 



***»H2 ********* 
t * 

* PHASE 1 * 



Section 3: Charts and Routine Directories 
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Table 20- Phase 30 Main Routine/Subroutine Directory 

Function 



r T- 

I Rout ine/Subrout ine | 



h 



ANYRLD 

BASRLD 

CHKLBL 

ENDCRD 

END TXT 

EOJ 

ERR/WARN 

GENTAB 

INCTXT 

NXTCUT 

PRINT 

THIRTY 

TWNFTV 

TXT IN 

TXTOUT 

ZRTXT 



Generates RLD card images for branch list tables. 

Generates RLD card images for base value table. 

Controls generation of TXT and RLD card irrages for branch lists, 

Generates END card image for object module. 

Switches input/ output buffers. 

Sets up 'SIZE OF COMMON' and 'SIZE OF PROGRAM' message. 

Sets up error and warning messages. 

Builds an internal table for branch list tables. 

Increments intermediate text pointer. 

Generates TXT card images for branch list tables. 

Interfaces with control program to print messages. 

Primes input text buffers. 

Primes input text buffers. 

Reads intermediate text. 

Outputs card images on SYSLIN and/or SYSPUNCH data sets. 

Generates TXT card images for base value table. 
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APPENDIX A: DATA CONTROL BLOCK MANIPULATION 



The manipulation of the data control 
blocks for the data sets required by the 
compiler depends on whether a SPACE or a 
PRFRN compilation is being performed. For 
SPACE compilations, there is more data 
control block manipulation because of main 
storage limitations. (The main storage 
required to contain all the BSAM routines 
and the control blocks for I/O operations 
may not be available or may be restricted 
from the compiler by the value specified in 
the SIZE option.) For PRFRM compilations, 
the availability of main storage is not a 
limitation. Therefore, less data control 
block manipulation is required. 



tion of a compiler component. WRITE indi- 
cates that the corresponding data set is 
written onto during execution of a compiler 
component. 



For a batch compilation (i.e., more than 
one source module), the SYSPRINT, SYSLIN, 
and SYSPUNCH data sets are manipulated so 
that each data set contains the output for 
the entire compilation (i.e., for all the 
source modules). However, if the SYSOUT 
parameter is used on the DD statements 
associated with SYSPRINT, SYSLIN, and SYS- 
PUNCH; a new data set is created for the 
output of each of the compiled source 
modules. 



FOR SPACE COMPILATIONS 



For a SPACE compilation. Phase 1 ini- 
tially opens only the data control blocks 
for the data sets used by Phases 7, lOD, 
and lOE (SYSIN, SYSUTl, SYSUT2 , SYSPRINT). 
For the remainder of the compilation, the 
data control blocks are opened by the 
interludes only when their corresponding 
data sets are to be used by a specific 
compiler component. Each interlude first 
closes all the data control blocks and then 
opens only those that are to be used. This 
process decreases the size of the resident 
BSAM routines and provides the compiler 
with the additional main storage necessary 
for compilation. 



Figure 12 illustrates the manipulation 
of data control blocks for SPACE compila- 
tions. OPEN indicates that the data con- 
trol block is opened during the execution 
of a compiler component. CLOSE indicates 
that the data control block is closed 
during execution of a compiler component. 
TCLOSE indicates that the corresponding 
data set is repositioned from the end of 
the data set to the beginning of the data 
set for subsequent reading or writing. IN, 
OUT, INOUT, and OUTIN indicate that the 
corresponding data set is used for initial 
or intermediate compiler input, for inter- 
mediate or final compiler output, for input 
followed by output, and for output followed 
by input. READ indicates that the corres- 
ponding data set is read from during execu- 



FOR PRFRM COMPILATIONS 



For PRFRM compilations. Phase 1 initial- 
ly opens the data control blocks for all 
the data sets required by the compiler. 
Because all the required data control 
blocks are opened initially, the compiler 
can bypass the execution of Interludes lOE, 
14, and 15. Bypassing the execution of the 
interludes reduces data control block 
manipulation and phase-to-phase transition 
time; therefore, compilation time is also 
reduced. 



Figure 13 illustrates the manipulation 
of data control blocks for PRFRM compila- 
tions. OPEN indicates that the data con- 
trol block is opened during execution of a 
compiler component. CLOSE indicates that 
the data control block is closed during 
execution of a comipiler component. TCLOSE 
indicates that the corresponding data set 
is repositioned from the end of the data 
set to the beginning of the data set for 
subsequent reading or writing. IN, OUT, 
and OUTIN indicate that the corresponding 
data set is used for initial compiler 
input, for intermediate or final compiler 
output, and for output followed by input. 
READ indicates that the corresponding data 
set is read from during execution of a 
compiler component. WRITE indicates that 
the corresponding data set is written onto 
during execution of a compiler component. 
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r T T T T r T ^ 

I I DCB for I DCB for j DCB for | DCB for | DCB for I DCB for | 

I Compiler Component | SYSIN | SYSUTl | SYSUT2 | SYSPRINT | SYSLIN ♦ | SYSPUNCH ** | 

i. + + + + j. 1 ^ 

I Phase 1 (initial | OPEN | OPEN | OPEN | OPEN | | | 

I entry) | IN | OUT | OUT | OUT | | | 

j. + + 1 + + + ^ 

I Phase 7 | READ | | | WRITE | j | 

|. + + 1 + + + ^ 

I Phase lOD | READ | WRITE | WRITE | WRITE | | | 

|. 1 1 + + 1 + ^ 

I Phase lOE | READ | WRITE | | WRITE | | | 

|. + + + + + + ^ 

I I CLOSE I CLOSE j CLOSE | CLOSE | j j 

I Interlude lOE | | OPEN j OPEN j OPEN j OPEN j OPEN | 
I I I IN I INOUT I OUT I OUT j OUT | 
|. 4- 1 1 + ^ + ^ 

I III ^SAC III I 

I Phase 12 | | | TCLOSE j WRITE | WRITE | WRITE | 
|. + + + + + + ^ 

I Phase 14 | j READ j WRITE | | WRITE j WRITE j 

j. 1 1 4- + + + ^ 

I I I CLOSE I CLOSE | CLOSE | CLOSE | CLOSE | 
I Interlude 14 | | OPEN | OPEN III I 

I I I OUT I IN I I I I 

j. + 1 + 1 + 1 ^ 

I Phase 15 j j WRITE | READ III I 

|. + + + 1 + 1 ^ 

I I I CLOSE I CLOSE III I 

I Interlude 15 j j OPEN | OPEN j OPEN | OPEN j OPEN | 
I I I INOUT I OUT IN I OUT j OUT | OUT | 
|. + + + 1 + + ^ 

I I 1 READ I WRITE III I 

I Phase 20 | | TCLOSE j TCLOSE | WRITE j WRITE | WRITE | 
^ + 1 4. + + + ^ 

I I I WRITE I READ III I 

I Phase 25 j | TCLOSE j TCLOSE | WRITE j WRITE | WRITE | 
J. + + + + + + ^ 

I I I READ I READ III I 

I Phase 30 | | TCLOSE | TCLOSE | WRITE j WRITE | WRITE | 
|. + + ^ 1 + ^ ^ 

I Phase 1 (subsequent! j CLOSE | CLOSE j CLOSE j CLOSE | CLOSE | 
j entries) | OPEN | OPEN j OPEN | OPEN | j | 

I I IN I OUT I OUT j OUT | | | 

|. 1 1 1 1 1 1 ^ 

I Phase 1 (final I I I I I I I 

I entry) j CLOSE | CLOSE | CLOSE j CLOSE | CLOSE | CLOSE | 
|. ± J. ± J. .-X ± ^ 

I * SYSLIN is used only if the LOAD option is specified. | 

I** SYSPUNCH is used only if the DECK option is specified. | 

L J 



Figure 12. Data Control Block Manipulation for SPACE Compilations 



74 



1 


-T- 


ECB for 


-T" 


DCB for 


"T- 


DCB for 


-T- 


DCB for 


-T- 


DCB for 


-T" 


DCB for 


-1 


1 Compiler Component 




SYS IN 




SYSUTl 




SYSUT2 




SYSPRINT 




SYSLIN * 




SYSPUNCH *♦ 




j. 

1 Phase 1 (initial 


-+- 


OPEN 


-+- 


OPEN 


-+- 


OPEN 


-+- 


OPEN 


-+- 


OPEN 


-+- 


OPEN 


— i 


1 entry) 




IN 




OUTIN 




OUTIN 




OUT 




OUT 




OUT 




j. 

1 Phase 7 

L _ — — _ _ 


1 


READ 


-+- 
1 




-+- 
1 


.«..— ^_-..^. 


-+- 
1 


WRITE 


1 


"—"^ """■'^'^"" 






■""T 


r 

1 Phase lOD 


1 


READ 


1 


WRITE 


1 


WRITE 


t 


WRITE 


1 




1 






L_ _ 


1 




1 




1 




1 




L_ 




1 






r — 


1 




1 


WRITE 


t 




|— 




T 




T 






1 Phase lOE 




READ 




TCLOSE 




TCLOSE 




WRITE 












|. 

1 Interlude lOE 


-+- 


— —-- 


-+- 




-+- 





-+- 




-+- 




-+- 




-• 1 


1 (net executed) 

j. 


-+- 




-+- 




-+- 




-+- 




-+- 




-+- 




-^ 






READ 








1 Phase 12 

|. 


-+- 




-+- 




-+- 


TCLOSE 


-+- 


WRITE 


-+- 


WRITE 


-+- 


WRITE 


— 1 




READ 


WRITE 








1 Phase 14 


1 




1 


TCLOSE 


1 


TCLOSE 


I 




1 


WRITE 


1 


WRITE 




1 Interlude 14 


1 




1 




1 




1 




1 




1 






1 (not executed) 




























l- 


-+- 




-+- 


WRITE 


-+- 


READ 


-1- 




-+- 




-+- 




— ^ 


1 Phase 15 








TCLOSE 




TCLOSE 
















L 


1 




1 




1 




1 




1 




1 






r — — 

1 Interlude 15 


1 




1 




f 




1 




T 




1 
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READ 
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WRITE 
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1 Phase 20 
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TCLOSE 
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TCLOSE 
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WRITE 
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WRITE 
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WRITE 
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1 
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WRITE 
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READ 
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j Phase 25 








TCLOSE 




TCLOSE 




WRITE 




WRITE 




WRITE 
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-+- 


READ 


-+- 


READ 


-+- 





-+- 




-+- 




—• j 


1 Phase 30 








TCLOSE 




TCLOSE 




WRITE 




WRITE 




WRITE 




^ 

1 Phase 1 (restart 
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CLOSE 


-+- 


CLOSE 


-+- 


CLOSE 


-+- 


CLOSE 


-+- 


CLOSE 


-+- 


CLOSE 
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OPEN 
IN 
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OPEN 
OUT 


1 


OPEN 
OUT 
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OPEN 
OUT 


I 
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r — 
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1 




1 




1 




1 
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1 compilation - 
1 PRFRM) 

L 


-+- 




-+- 




-+- 




-+- 




-+- 




-+- 




-^ 


r - - - — 
1 Phase 1 


CLOSE 


CLOSE 


CLOSE 


CLOSE 


CLOSE 


CLOSE 


1 (final entry) 

j. 


-JL- 




_JL_ 




.i_ 




.J._ 




_X_ 




-i_ 






1 ♦ SYSLIN is used only 


if the 


LOAD option 


is specifi 


ed. 












1** SYSPUNCH is used 

L 


on 


ly if the 


DECK option is speci 


fied. 










_j 



Figure 13. Data Control Block Manipulation for PRFRM Compilations 
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APPENDIX B: TABLES USED BY PHASE LOAD MODULES 



During a compilation, the coitipiler uses 
the following tables: 



Allocation table. 
Routine displacement tables. 
EQUIVALENCE table. 
Forcing value table. 
Operations table. 
Subscript table. 
Index mapping table. 
Epilog table. 
Message length table- 
Message address table. 
Message text table. 



Some tables are actual segments of the 
phase load modules; others are created 
during the compilation. Each table is used 
only by the phase that contains it (as a 
part of the phase load module) or creates 
it. The following discussions describe the 
use and format of each table. 



ALLOCATION TABLE 



The allocation table is a part of the 
Phase 7 load module. It is used to allo- 
cate the amount of main storage obtained 
among buffer areas and resident tables. An 
entry in the allocation table has the form 



ROUTINE DISPLACEMENT TABLES 



The routine displacement tables for re- 
served word processing routines are parts 
of the Phase lOD and Phase lOE load 
modules. Reserved words are those that 
indicate a specific FORTRAN statement. The 
Phase lOD and Phase lOE routine displace- 
ment tables are identical in structure and 
in purpose (locating the processing routine 
for a given reserved word). The Phase lOD 
table aids in the location of reserved word 
routines for declarative statements; the 
Phase lOE table aids in the location of 
reserved word routines for executable 
statements. 



Each reserved word causes an entry to be 
made in the dictionary by Phase 7 (refer to 
Appendix C) . The address field of these 
entries contains a displacement, used as an 
indexing value, relative to the start of 
the appropriate routine displacement table. 
This index is used to obtain the actual 
displacement, relative to a base register, 
of a specific reserved word routine located 
within the Phase lOD or Phase lOE load 
module. The effective address of the 
desired reserved word routine is obtained, 
by Phase lOD or Phase lOE, by adding this 
displacement to the value in the base 
register. 



shown in Figure 14. 



Figures 15 and 16 illustrate the 
of the routine displacement tables. 



format 











Storage Used 


for 


1 


Storage Used for 






Available Storage 




Dictionary 


and 


1 


the four 


Design Point 




Over 15360 




Overflow Table 


1 


Internal Text Buffers 




1 _ 




1 






- J. - 






1 




T 






T 




200K 




189440 




65536 




1 


4x(3624) 


108K 




95232 




65536 




1 


4x(3624) 


44K 




29696 




20326 




1 


4x(3000) 


15K 


_x_ 





_X_ 


2216 




1 
—X — 


4x(104) 



The design point may be 15, 44, 108, or 200 K (K = 1024 bytes). The remaining fields 
indicate amounts of storage in bytes. If the amount of main storage available is not 
at a design point, simple interpolation is performed to divide storage appropriately 
among buffer areas and resident tables. 

L 

Figure 14. Allocation Table Entry Format 
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Displacement from base register value of 
REAL reserved word routine 



Displacement from base register value of 
COMNON reserved word routine 



Displacement from base register value of 
FORMAT reserved word routine 



Displacement from base register value of 
DOUBLE reserved word routine 



Displacement from base register value of 
INTGER reserved word routine 



Displacement from base register value of 
EXTERN reserved word routine 



Displacement from base register value of 
FUNCT reserved word routine 



Displacement from base register value of 
DIM reserved word routine 



Displacement fromi base register value of 
SUBRUT reserved word routine 



Displacement from base register value of 
EQUIV reserved word routine 



2 bytes 

Figure 15, Phase lOD Routine Displacement 
Table Format 



The following example illustrates how 
the GO reserved word routine is located. 



r ^ 



Dictionary entry for GO 



L ^ 

r — ^ 



Phase lOE Routine Displacement 
Table 



Displacement for DO 
reserved word routine 



Displacement for GO 
reserved word routine 



h- 



Displacement for BKSP 
reserved word routine 



L ^ 



GO reserved word 
processing routine 



r 1 

Displacement from base register value of 
DO reserved word routine 



Displacement from base register value of 
GO reserved word routine 



Displacement from base register value of 
FORMAT reserved word routine 



Displacement from base register value of 
IF reserved word routine 



Displacement from base register value of 
END reserved word routine 



Displacement from base register value of 
CALL reserved word routine 



Displacement from base register value of 
GOTO reserved word routine 



Displacement from base register value of 
READ reserved word routine 



Displacement from base register value of 
STOP reserved word routine 



Displacement from base register value of 
PAUSE reserved word routine 



Displacement from base register value of 
WRITE reserved word routine 



Displacement from base register value of 
RETURN reserved word routine 



Displacement from base register value of 
REWIND reserved word routine 



Displacement from base register value of 
ENDFIL reserved word routine 



Displacement from base register value of 
CONT reserved word routine 



Displacement from base register value of 
BKSP reserved word routine 

2 bytes 



Figure 16. Phase lOE Routine Displacement 
Table Format 



EQUIVALENCE TABLE 



The EQUIVALENCE table is constructed by 
Phase 12 for use by the Phase 12 storage 
allocation routines, which assign addresses 
to equated variables. This table is a 
serial list in which each member follows 
the preceding one. 
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The format of a typical entry in the 
EQUIVALENCE table is shown in Figure 17. 



r T T T 1 

I p (variable) I p(root) I displacement |size | 

I or p (array) I |or address in | | 
I I I COMMON I I 
L X X X J 

2 bytes 2 bytes 2 bytes 2 bytes 
Figure 17. EQUIVALENCE Table Entry Format 



Each field in an entry is two bytes in 
length. The first field contains a pointer 
to the entry for the variable or array in 
the dictionary. The second field contains 
a pointer to the dictionary entry for the 
root to which the variable or array is 
equated. (If the variable or array is the 
root of the EQUIVALENCE group, the first 
two fields contain the same pointer.) The 
third field contains the displacement or 
address assigned to the variable or array 
in COMMON. (The addresses for variables 
and arrays are assigned before this table 
is constructed. ) The fourth field is the 
size, in bytes, of the EQUIVALENCE group or 
class. 

The maximum number of entries in the 
EQUIVALENCE table is the larger of j 

• 100, or 

• The largest unused segment of the dic- 
tionary and overflow table divided by 
eight (if this segment exceeds 800 
bytes) . 

For example, if the compiler allocates 
5500 bytes to the dictionary and the over- 
flow table, and 3100 bytes are used, then 
the maximum number of entries in the EQUI- 
VALENCE table is: 

(5500 - 3100)/8 = 2400/8 = 300 



Adjective 
Code 



4 



** 



F( 



unary - 



end mark 
unary + 



SF 
Forcing 



ARITH 
Forcing 



CALL 
Forcing 



IP 
Forcing 



Left 

Forcing 

Value 



64 



00 



70 



49 



80 



09 



■+- 



09 



05 



05 



04 



-+ 



64 



05 



00 



+ + 

05 



72 



72 



72 



72 



Address of 
Associated 
Routine 



a(LFTPRN) 



a(RTPRN) 



a (EQUALS) 



a (COMMA) 



never 
forced out 



a (ADD) 



a (ADD) 



a (MULT) 



a (MULT) 



a(EXPON) 



a(FUNC) 



a(UMINUS) 



never 
forced out 

a(UPLUS) 



a (END) 



a (END) 



a (CALL) 



a (END) 



Right 

Forcing 

Value 



01 
69 



70 
48 
01 



09 
09 



05 
05 



03 
01 



01 
80 

01 



70 



70 



70 



70 
byte 



1 byte 1 byte 2 bytes 1 
Figure 18. Forcing Value Table 



FORCING VALUE TABLE 



The forcing value table is not created 
or altered in any way by the compiler; it 
is loaded into main storage as a part of 
the Phase 15 load module. The forcing 
value table is used by Phase 15 as an aid 
in the reordering of intermediate text 
entries in arithmetic expressions. This 
table defines the relative position of each 
operator in the hierarchy of operators. 



e is 



Each entry in the forcing value tabl_ 

five bytes in length- The forcing value 
table is illustrated in Figure 18. 



OPERATIONS TABLE 



The operations table is a temporary 
storage area (part of the Phase 15 load 
module) used during the reordering of oper- 
ations within statements that can contain 
arithmetic expressions. This table func- 
tions as a "pushdown table" (that is, a 
table in which the top entry is the most 
recently entered item) for storing inter- 
mediate text words that refer to the opera- 
tion in question- An exception is made for 
subscript text, which is stored in the 
subscript table. 
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The operations table can contain no more 
than 50 entries. Entries are four bytes in 
length and are obtained by a pointer to the 
last entry in the table for the specific 
statement under consideration. The format 
of a typical entry in the operations table 
is shown in Figure 19. 



contains two pointers to information in the 
overflow table. The first points to the 
subscript information for the subscripted 
variable; the second points to the dimen- 
sion information for the array indicated by 
the subscripted variable. 



r T T 1 

|adj code I mode/type field) pointer field | 
L X X J 

1 byte 1 byte 2 bytes 
Figure 19. Operations Table Entry Format 



SUBSCRIPT TABLE 



The subscript 
age area (part o 
used for subscr 
the reordering o 
by Phase 15. 
"pushdown table" 
the top entry is 
item) for stor 
text words that 
question. 



table is a temporary stor- 

f the Phase 15 load module) 

ipt text encountered during 

f intermediate text words 

This table functions as a 

(that is, a table in which 

the most recently entered 

ing subscript intermediate 

refer to the operation in 



The subscript table can contain no more 
than 38 entries. Entries are eight bytes 
in length and are obtained by a pointer to 
the top entry in the table for the specific 
statement under consideration. The format 
of a typical entry in the subscript table 
is shown in Figure 20. 

The subscript adjective code indicates 
to ether phases of the compiler that sub- 
script calculation is necessary. The off- 
set is an index used to find the correct 
element in an array associated with a 
particular subscript expression. The sec- 
ond word of an entry in the subscript table 



INDEX MIAPPING TABLE 



The index mapping table (part of the 
Phase 20 load module) is used to aid the 
implementation of subscript optimization. 
This table maintains a record of all infor- 
mation pertinent to a subscript expression. 
Because the computation of any unique sub- 
script expression is placed in a register, 
the number of entries in the table depends 
on the number of registers available for 
this purpose. The initial register 
assigned to a subscript expression is det- 
ermined during the initialization process 
for Phase 20. Each entry in the index 
mapping table is eight bytes in length. 
The format of a typical entry in the index 
mapping table is shown in Figure 21. 

The register number field contains the 
number of the register assigned to the 
subscript expression. The dimension niraber 
field contains the number 1, 2, or 3, 
depending on the number of dimensions. The 
status field indicates whether the register 
referenced by this entry is: (1) unas- 
signed, (2) assigned to a normal subscript 
expression for indexing computation, or (3) 
assigned to the address of a dummy vari- 
able. The offset field contains the offset 
index used to obtain the correct element of 
the array associated with a particular 
subscript expression. The last two fields 
contain pointers to information in the 
overflow table. 



r T T- 

I subscript | not used | 
I adjective |by j 
I code I Phase 15 | 
L X X. 



offset 



p (subscript) 
2 bytes 



p (dimension) 



1 byte 1 byte 2 bytes 
Figure 20- Subscript Table Entry Format 



2 bytes 



r T T- 

I Regis- |Niamber| 

Iter I of I 
I number | Dimen- j 
I jsions I 
L X X- 



■T 

I 

I p( dimension) 

I 

I 

. X 



Status I 

I 

I 

X. 



Offset 



p(s\abscript) 



1 byte 1 byte 2 bytes 2 bytes 

Figure 21. Index Mapping Table Entry Format 



2 bytes 
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EPILOG TABLE 



MESSAGE ADDRESS TABLE 



The epilog table is created by Phase 25 
when the FUNCTION or SUBROUTINE adjective 
code is encountered. An entry is made in 
the epilog table for each variable used as 
a parameter in the calling program. The 
instructions generated during Phase 25 for 
the RETURN entry in the interitiediate text 
reference the epilog table to return the 
value of variables to the calling program. 

Each entry in the epilog table is four 
bytes in length. The format of a typical 
entry in the epilog table is shown in 
Figure 22. 



The message address table is loaded into 
main storage as a part of the Phase 30 load 
module. It contains the displacements from 
the start of the message text table of all 
the messages capable of being generated by 
the compiler. The displacement of any 
message is obtained by using the number 
corresponding to the message multiplied by 
two as a displacement from the start of the 
message address table. 



The message address table has 
lowing format: 



the fol- 



■T — 

IS 



address 



1 byte 1 byte 2 bytes 

Figure 22. Epilog Table Entry Foinnat 



L is the field length of the variable in 
the subprogram, S is the relative position 
of the variable in the parameter list of 
the calling program, and address is the 
address of the variable in the subprogram. 



r 1 

Displacement of text for first message 
froir start of the m.essage text table 



Displacement of text for second message 
from start of the message text table 



Displacement of text for last message 
from start of the message text table 

2 bytes 



MESSAGE LENGTH TABLE 



MESSAGE TEXT TABLE 



The message 1 



main storage as 
module. It cont 
messages capabl 
compiler. The 1 
obtained by usi 
to that message 
start of the mes 



ength table is loaded into 
a part of the Phase 30 load 
ains the lengths of all the 
e of being generated by the 
ength of any message is 
ng the number corresponding 
as a displacement from the 
sage length table. 



The message length table has the follow- 
ing format: 



The message text table is loaded into 
main storage as a part of the Phase 30 load 
module. It contains all the messages capa- 
ble of being generated by the compiler. 
Each message is obtained by using the 
displacements contained in the message 
address table. 

The message text table has the following 
format: 



r 1 

I Length of first message | 

^ ^ 

I Length of second message | |- 
^ ^ 

I • I 

I . I 

I • I 

|. ^ 

I Length of last message | 

L J 

1 byte 



Message text corresponding to first 
message number 



Message text corresponding to second 
message number 



Message text corresponding to last 
message number 

Variable length 
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APPENDIX C: RESIDENT TABLES 



The resident tables of the compiler are: 

• The dictionary. 

• The overflow table. 

• The segment address list (SEGMAL). 

• The patch table. 

• The blocking table (resident only for 
PRFRM compilations). 

• The BLDL table (resident only for PRFRM 
compilations) . 

The dictionary is a reference area con- 
taining information about variables, 
arrays, constants, data set reference num- 
bers, etc., used in the source module. The 
overflow table contains all dimension, sub- 
script, and statemient number information 
within the source module. SEGMAL is used 
for main storage allocation within the 
compiler. The patch table contains infor- 
mation to be used to modify compiler compo- 
nents. The blocking table contains the 
information necessary for deblocking com- 
piler input and blocking compiler output 
for PRFRM compilations. The BLDL table 
contains the information necessary for 
transferring control from one component of 
the compiler to the next for PRFRM compila- 
tions. 



THE DICTIONARY 



The dictionary (constructed by Phases 7, 
lOD, and lOE) is used and modified by Phase 
12 in address assignment, and is further 
used by Phase 14 when addresses from the 
dictionary replace pointers to the diction- 
ary in the intermediate text entries (refer 
to Appendix D) . For SPACE compilations. 
Phase lU frees the dictionary area of 
storage for use by subsequent phases. 



Cne chain for real constants. 
One chain for integer constants. 
Cne chain for integer data set ref- 
erence numbers. 

One chain for double-precision con- 
stants. 



Phase 7 Processing 



Phase 7 allocates storage for the dic- 
tionary, and then enters all reserved words 
(words that indicate a specific FORTRAN 
statement) into the dictionary. 

Figure 23 illustrates the dictionary 
after it is constructed by Phase 7. 

The dictionary, dictionary index, the 
overflow table, overflow table index, and 
SEGMAL are in main storage in the following 
relative positions. 

r 1 

Upper storage | Dictionary Index | 
,. ^ 

I Dictionary | 

I I I 

^ X ^ 

^ ^ 

I T I 

Lower storage | Overflow Table | 

|. ^ ^ 

I SEGMAL I Overflow Table Index | 

L J. J 

This order is set up during Phase 7. 
(Refer to the Phase 7 discussion.) 



Phases lOD and lOE Processing 



The dictionary is organized as a series 
of chains related by the dictionary index, 
which indicates the first entry in each 
chain. There are 15 chains, used for 
various entries, as follows: 

• Eleven are organized on the basis of 
length of the symbol being entered 
(e.g., DO has a length of 2, END has a 
length of 3, etc.). The first chain is 
for entries of length 1, the second is 
for entries of length 2, the third is 
for entries of length 3, and so on. 

These chains contain entries for re- 
served words (chains 2-11), in-line 
functions, variables, and arrays. 



Additions to the dictionary occur as 
entries are made to the various chains 
during Phases lOD and lOE processing. To 
enter an item in the dictionary, the perti- 
nent chain is located via the dictionary 
index. The chain is searched until the 
last entry is found. The current end-of- 
chain indicator is replaced with a pointer 
to the new entry; the new entry is then 
marked as the end of the chain. 

For example, assume the variable ABC is 
to be entered in the dictionary. ABC 
belongs in the third chain of the diction- 
ary (length 3) . Using the dictionary 
index, the first entry of the chain for 
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length 3 is obtained. Assume that Figure 
23 indicates the condition of the diction- 
ary at this time. The chain for length 3 
is searched for the last entry (the entry 
for DIM) , which is modified to appear as: 



The entry for ABC appears as 



j end of 
I chain 
L 



i entry for 
I ABC 



r T 

I pointer to the entry | entry for 

I for ABC I DIM 

L X 



When the dictionary and overflow table 
overlap, a message is issued; no new 
entries are made; and compilation proceeds. 



DICTIONARY INDEX 



r+- 



r++ 

r+++ 

I 



end of the chain of length 1 

pointer to the first entry in the chain of length 2 

pointer to the first entry in the chain of length 3 

pointer to the first entry in the chain of length 4 

pointer to the first entry in the chain of length 5 

pointer to the first entry in the chain of length 6 

pointer to the first entry in the chain of length 7 

pointer to the first entry in the chain of length 8 

pointer to the first entry in the chain of length 9 

pointer to the first entry in the chain of length 10 

pointer to the first entry in the chain of length 11 
end of the chain for integer constants 
end of the chain for real constants 
end of the chain for data set reference numbers 
end of the chain for double-precision constants 



There are several chains that have no entries when the dictionary is constructed 
during Phase 7. That is, there are no reserved words of length 1, and no entries 
would be made in the data set reference number chain or constant chains. 



r 

r -^ T 1 

I pointer to | entry for | 
I the entry | DO | 
I for GO I I 

L i _ J 



r T * 1 

[pointer to j entry for | 
I the entry j GO | 
I for IF I I 

L ^ X J 

L 



end of 
chain 



■T 1 

I entry for | 

I IF I 

I I 

±:::} — 



r 

r X ^ , 

{pointer to | entry for | 

I the entry | END | 

I for ABS I I 

L X ^ _J 



r T -^ 1 

I pointer to | entry for | 

I the entry | ABS 

I for DIM I I 

L _ X J 



I I 



end of 
chain 



■T 1 

I entry for | 

I DIM I 



L_. 



r T 1 

I end of I entry for | 
I chain | SUBROUTINE! 
L _x , J 



:j" 



end of 
chain 



I entry for j 
I EQUIVA- I 
I LENCE I 



i Note ; See Figure 26 for] 
I the general format of a| 
I dictionary entry. | 



Figure 23. The Dictionary as Constructed by Phase 7 
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Phase 12 Processing 



Dictionary Entry Fonnat 



During the Phase 12 processing,, address- 
es are assigned to the symbols entered in 
the first six chains of the dictionary. In 
assigning these addresses. Phase 12 uses 
the contents of the dictionary entries. 
The addresses replace: (1) the pointers to 
following entries in the dictionary, and 
(2) the end-of-chain indicators. To ensure 
that the chain is not broken, the chain is 
continued by modifying the pointer to the 
entry just assigned an address. Figures 24 
and 25 illustrate two cases of the "before" 
and "after" in removing an entry from a 
dictionary chain. Figure 2 4 indicates 
removal of an entry from the end of the 
chain. Figure 25 indicates removal of an 
entry from the middle of the chain. 



The entries to the dictionary may vary; 
however, they all have the same general 
form. Figure 26 indicates this general 
form. 



r T T T T T 1 

I Chain | Usage | Mode | Image | Address | Size | 
I address) field] Type |field| field j field | 
I field I I field I | | | 

L J. J X i X J 

2 11 1-11 2 2 
bytes byte byte bytes bytes bytes 

Figure 26. General Form of a Dictionary 
Entry 



Phase 14 Processing 



Each field contains specific information as 
indicated below: 



During Phase 14 processing, each pointer 
(in the intermediate text) to a dictionary 
entry is replaced by the address assigned 
to the symbol within the dictionary entry. 
Refer to Appendix D for the modification of 
the intermediate text. 



CHAIN ADDRESS FIELD: The chain address 
field is used to maintain the linkage 
between the various elements of the chain. 
It either contains the relative pointer to 
the next entry or indicates that its asso- 
ciated entry is the last entry in the 
chain. 



-j: 



"before" an address j pointer to the entry j entry for DIM j j end of chain j entry for ABC | 
is assigned to the jfor ABC j j | | j 

I I Mi I 

L X J L J. J 



variable ABC 



"after" an address 
is assigned to the 
variable ABC 



end of chain 



■T *■ 1 r T 1 

I II I i 

I entry for DIM | | assigned ad- 1 entry for ABC | 
I I I dress of ABC| | 

I II I I 

.X J L X J 



Figure 24. Removing an Entry From the End of a Dictionary Chain 



"before" an address 
is assigned to 
the variable ABC 



"after" an address 
is assigned to 
the variable ABC 



r ' T — ■" — 1 

I pointer to | entry] 
I the entry jfor j 
jfor ABC JAAA j 
L J. J 



, — J ,..i.., 

I pointer to | entry | 
jthe entry j for j 
jfor CCC I ABC j 
L J. J 



r L ^_i_., 

I pointer to | entry] 
i the entry j for j 
jfor CCC JAAA j 
L J. J 



r T 1 

(assigned ] entry] 
jaddress of ] for j 
JABC ]ABC i 



, — L — ^..i.i, 

{pointer to) entry] 
jthe entry jfor j 
jfor DDD JCCC ] 
L X J 

, L ^„L^ 

(pointer to) entry) 
jthe entry jfor j 
jfor DDD jccc j 
L J. J 



Figure 25. Removing an Entry From the Middle of a Dictionary Chain 
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USAGE FIELD; The usage field is divided 
into eight subfields. Each subfield is one 
bit long and is numbered from through 1, 
inclusive. Figure 27 indicates the func- 
tion of each subfield in the usage field. 



r T 

Usage field 
subfield 



Bit 



Bit 1 



Bit 2 



Bit 3 



Bit 4 



Bit 5 



Bit 6 



Bit 7 



Function of the field 



Indicates if the mode of 
entry has been defined 



the 



Indicates if the type of the 
entry has been defined 



Indicates if the entry is in 
COMMON 



Indicates if the entry is 
equated 



Indicates if the entry is 
assigned an address 



Indicates if this is the 
entry for the root of an 
EQUIVALENCE group (see Phase 
12) 



4- 



Indicates if the entry rep- 
resents double precision 



Indicates if the entry is for 
an in-line function or an 
external reference. 



pie, a real quantity has the mode code 7; 
therefore, the mode field for a real is 
0111 (the bit configuration for 7) . simi- 
larly, a subscripted variable has the type 
code C; therefore, the type field for a 
subscripted variable is 1100 (the bit con- 
figuration for C) . The mode/type field for 
a real subscripted variable is 01111100. 
The various mode/ type combinations possible 
are indicated in Figure 28. 



IMAGE FIELD; The image field contains the 
appropriate image of the symbol. The 
length of the symbol determines the length 
of the field. 



ADDRESS FIELD; The address field is pre- 
sent in dictionary entries for: 



• Reserved words — to indicate the posi- 
tion of the displacement of the proc- 
essing routine for that reserved word 
in the Phase lOD or Phase lOE Routine 
Displacement Table (see Appendix B) . 

• In-line functions — to indicate the 
code value used within the compilation 
for that in-line fiinction. 

• Arrays — to indicate the displacement 
within the overflow table of the dimen- 
sion information for that array. 



Figure 27. Function of Each Subfield in 
the Dictionary usage Field 



SIZE FIELD; The size field is present for 
the dictionary entries that represent 
arrays. It indicates the size of the 
array. 



MODE /TYPE FIELD: 



This field is 



divided 
two parts (each four bits long). The 

to indicate the 



into 

first four bits are used 

mode of an entry, while the last four bits 

are used to indicate the type. For exam- 



All fields are present in each diction- 
ary entry, except the address field and the 
size field. The fields and the phases that 
enter information into the fields are indi- 
cated in Figure 2 9. 
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Figure 28. The Various Mode/Type Combinations 
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Figure 29. Phases That Enter Information Into Specific Fields of a Dictionary Entry 



Appendix C: Resident Tables 85 



THE OVERFLOW TABLE 



The overflow table is constructed by 
Phases 7, lOD, and lOE. The overflow table 
subscript entries are modified by Phase 12 
during address assignment; statement number 
entries are assigned relative branch list 
numbers. The overflow table is used by: 

• Phase 12 — to reserve storage for the 
branch list. 

• Phase 20 — for subscript optimization, 

• Phase 25 — for the construction of 
object module coding. 



r T 

I pointer to the dimension entry for ARRYl | 
L J 



The overflow table entry (in the first 
array chain) appears as: 



i end of chain 
L 



j entry for ARRYl 



When the next 1-dimensional array, ARRY2, 
is entered in the overflow table, the entry 
for ARRYl is modified as follows: 



Organization of the Overflow Table 



The overflow table is organized as a 
series of chains related by the overflow 
index. The overflow index indicates the 
displacement of the first entry in each 
chain relative to the beginning of the 
table. There are 11 chains, used for 
various entries, as follows: 

• Three chains are organized for the 
dimension information of an array; that 
is, for 1- , 2-, and 3-dimensional 
arrays. 

• Three chains are organized for sub- 
script information; that is, for 1-, 
2-, and 3-dimensional subscripts. 

• Five chains are organized for statement 
number information. All statement num- 
bers ending in and 1 are entered in 
the first chain. The remaining chains 
handle statement numbers ending in 2 
and 3, 4 and 5, 6 and 7, and 8 and 9, 
respectively . 



Construction of the Overflow Table 



Phase 7 allocates storage for the over- 
flow table. Because there are no reserved 
words entered in the overflow table as in 
the dictionary, only the overflow index is 
actually constructed. The index contains 
the end-of-chain indicator for each chain, 
as no entries exist in any chain at this 
time. Figure 30 indicates the overflow 
table as it appears after it is constructed 
by Phase 7. 

Phases lOD and lOE construct all entries 
to the overflow table. Each entry is 
entered in an overflow table chain; e.g., 
assume the 1-dimensional array ARRYl is the 
first array entered in Phase lOD. The 
first overflow index entry is modified to 
contain : 



r T 1 

I pointer to the entry | entry for ARRYl | 
I for ARRY2 i I 

L J. J 

and the entry for ARRY2 appears as: 

r T 1 

I end of chain | entry for ARRY2 | 

L X J 

The entries to other chains are made in 
like manner during the Phase lOD and the 
Phase lOE processing. 



end of chain for 
1-diirensional arrays 



information on 



end of chain for 
2-dimensional arrays 



information 



on 



end of chain for 
3-dimensional arrays 



information 



on 



end of chain for information 
1-dimensional subscripts 



on 



end of chain for information 
2-dimensional subscripts 



on 



end of chain for information 
3-dimiensional subscripts 



on 



end of chain for information on statement 
numbers ending in or 1 



end of chain for information on 
numbers ending in 2 or 3 



statement 



end of chain for information on 
numbers ending in U or 5 



statement 



end of chain for information on statement 
numbers ending in 6 or 7 



end of chain for information on statement 
numbers ending in 8 or 9 
t J 

Figure 30. The Overflow Table Index as 
Constructed by Phase 7 
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Use of the Overflow Table 



Phase 12 modifies the statement number 
chains when the branch list table for 
statement numbers (see Appendix F) is 
prepared initially by Phase 12. The chain 
field is replaced by a number that indi- 
cates the position the statement number has 
in the branch list table. 



Phases 14 and 15 do not use the overflow 
table. 



Phase 20 uses the information about 
subscripted expressions in performing its 
function of subscript optimization. This 
information is obtained via a pointer, in 
the intermediate text, to the pertinent 
overflow table entry (in a subscript 
chain). 



Phase 25 uses the branch list table 
number, assigned by Phase 12, to determine 
the position of a statement number in the 
branch table. (Phase 25 can then insert 
the object-time address, associated with 
the statement number, in the table.) The 
number is obtained via a pointer, in the 
statement number intermediate text entry, 
to the overflow table. 



r — T T n 

I Chain I 1 | Length] 

^ + 1 1 ^ 

I Chain I 2 | Length |Dl*Length| 

I Chain I 3 | Length |Dl*Length|Dl*D2*Length| 

L L X X X J 

2 2 2 2 2 

bytes bytes bytes bytes bytes 

Figure 31. Format of Dimension Information 
in the Overflow Table 



The fields of a dimension entry contain 
the following information: 

• The first field contains the displace- 
ment (relative to the beginning of the 
overflow table) of the next element in 
the chain. 

• The second field is a digit, either 1, 
2, or 3, to indicate whether one, two, 
or three fields will follow. This is 
the same as the number of dimensions. 

• The next field is of the form: 



r T T 

I L I Dl+L I D1+D2+L 
L X J 



where: 



Overflow Table Entry 



An entry in the overflow table 
of three formats : 



has one 



D1*L and Dl*D2*L are optional fields 
depending on the dimension. 

I indicates the length of an element in 
bytes (e.g., 4 for integer or real 
quantities and 8 for double-precision 
quantities) . 



1. Dimension. 

2. Subscript. 

3. Statement number. 



Dl represents the value of the first 
dimension of the array. 

D2 represents the value of the second 
dimension of the array. 



DIMENSION ENTRY; A dimension entry is 
formed for each array. An array may be 
defined as: 



SUBSCRIPT ENTRY: A subscript entry is 
formed for each subscripted variable. A 
subscripted variable may be defined as: 



• 1-dimensional, e.g., ARRAY (Dl). 

• 2-dimensional, e.g., ARRAY (Dl,D2) . 

• 3-diraensional, e.g., ARRAY (D1,D2,D3). 



• 1-dimensional, e.g., A(I) 

• 2-dimensional, e.g., A(I,J) 

• 3-dimensional, e.g., A(I,J,K) 



One- dimensional arrays are entered in 
the first dimension chain of the overflow 
table, 2-dimensional arrays in the second, 
and 3-dimensional arrays in the third- The 
formats for the entries of 1-, 2-, and 
3-dimensional arrays are indicated in Fig- 
ure 31. 



One-dimensional subscripts are entered 
in the first subscript' chain of the over- 
flow table, 2-dimensional subscripts in the 
second, and 3-dimensional subscripts in the 
third. The formats for the entries of 1-, 
2-, and 3-dimensional subscripts are illus- 
trated in Figure 32. 
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r T T 1 

I Chain | CI | pointer to VI in | 
I I I the dictionary j 
L i. J. J 

r T T T T 1 

I Chain | CI | pointer to VI in j C2 | pointer to V2 in | 
I I j the dictionary j j the dictionary j 
L J. J. J. J. J 

r T T T T T T 1 

I Chain | Cl | pointer to VI in | 0.2 \ pointer to V2 in | C3 | pointer to V3 in | 
I I 1 the dictionary j j the dictionary | | the dictionary j 

L X X X X X X J 

2 bytes 2 bytes 2 bytes 2 bytes 2 bytes 2 bytes 2 bytes 

Figure 32. Format of Subscript Information in the Overflow Table 



The fields of a subscript entry 
the following information: 



contain 



The first field contains the displace- 
ment (relative to the beginning of the 
overflow table) of the next element in 
the chain. 



The second and third, fourth and fifth, 
and sixth and seventh fields represent 
the first, second, and third dimensions 
of the subscript. The explanation and 
use of Cl, VI, C2, V2, C3, and V3 are 
given in Appendix E. 



STATEiVlENT NUMBER ENTRY; A statement number 
entry is constructed for each statement 
number encountered in the source state- 
ments. The format of an entry in the 
statem.ent number chains is illustrated in 



Figure 33. 



r T T 

I Chain | Usage | Packed Statement Number 
L X X 



r T 

Usage 
Field 
Bit 







Function of the Field 



Indicates if the statement num- 
ber is defined 



Indicates if the statement num- 
ber is referenced 



Indicates if the statement num- 
ber represents the end of a DO 
loop 



Indicates if the statement num- 
ber represents a specification 
statement 



Indicates if the statement num- 
ber represents a FORMAT state- 
mient 



Indicates if the statement num- 
ber indicates DO nesting errors 



Not used 



7 I Not used 

L X 



1 byte 1 byte 3 bytes 



Figure 33. Format of Statement Number 
Information in the Overflow 
Table 



• The third field contains the actual 
statement number (as it appeared in the 
source statem.ent) in packed form. 



The fields of a statement number entry 
contain the following information: 



SEGMAi 



The first field contains the displace- 
ment (relative to the beginning of the 
overflow table) of the next element in 
the chain. 



• The second field is a usage field where 
each bit represents the following: 



SEGMAL is constructed by Phase 7 and 
contains the beginning and ending address 
of each segment of main storage assigned to 
the dictionary and overflow table by Phase 
7. This main storage is assigned to the 
compiler as a result of the GETMAIN macro- 
instruction issued by the compiler during 
Phase 7. Phases lOD and lOE use SEGMAL as 



they enter various items in the 
and the overflow table. 



Phase 7 Processing 



dictionary table are required. For SPACE compila- 
tions. Phase 14 uses SEGMAL to free the 
main storage areas allocated to the dic- 
tionary. 



When SEGMAL is constructed by Phase 7, 
the various segments are put into ascending 
order; that is, the segment entries of main 
storage are sorted. Contiguous segments 
are then combined into a single segment. 

The communication area contains 
information to indicate which segment is 
currently being used for the overflow table 
and which is currently being used for the 
dictionary. 



Phases lOD and lOE Processing 



Phases lOD and lOE use SEGMAL when new 
segments of the dictionary and overflow 



Format of SEGMAL 



SEGMAL has the following form for N 
segments, where each segment is entered in 
ascending sequence by address. The entry 
for each segment consists of the beginning 
address of the segment and the ending 
address of the segment- (The storage loca- 
tion containing the ending address of seg- 
ment N is adjacent to the storage location 
containing the starting address of the 
overflow index. The starting address of 
the overflow index is an entry in the 
communication area.) 

Note ; The ending address of segment N 
minus the beginning address of segment 1 
must be less than or equal to 65536. 



4 bytes 



4 bytes 



4 bytes 



Beginning 
address of 
segment 1 



Ending ad- 
dress of 
segment 1 



Beginning 
address of 
segment 2 



entry for segment 1 



4 bytes 



Ending 

addr 

seg 



4 bytes 



4 bytes 




'T T 1 

I Beginning | Ending ad- | 

I address of | dress of | 

I segment N | segment N | 

.X X J 

entry for segment N 
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PATCH TABLE 

The patch table (100 bytes) is a part of the interface module. It is used only if the 
patch facility has been enabled and if patch records precede the source statements of the 
FORTRAN source module being compiled. The patch table contains a converted form (for 
internal use) of the information contained in the patch records. The patch table has the 
following form.at: 



•T 1 

I 2 bytes 



Identifier for first module to be modified 



Relative address of first patch for this module 



I 2 bytes 



Length (in bytes) of first patch for this module 
First patch for this module. 



j 2 bytes 

■+ 

I Variable 

-+ 



Relative address of last patch for this module 
Length (in bytes) of last patch for this module 



I 2 bytes 

■+ 

I 2 bytes 



■+- 
I Variable 

-+ 

I 4 bytes 

-+ 



Last patch for this module 

000000 01 (Indicates last patch for this module) 



Identifier for last module to be modified 
Relative address of first patch for this module 



I 2 bytes 



I 2 bytes 



-+ 

I 2 bytes 



Length (in bytes) of first patch for this module 
First patch for this module 



Variable 



Relative address of last patch for this module 



i 2 bytes 



Length (in bytes) of last patch for this module 



I 2 bytes 



Last patch for this module 



i Variable 



00000001 (Indicates last patch for this module) 



I 4 bytes 
■+ 



ZZ (Indicates last module to be patched) 



I 2 bytes 
-i J 
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BLOCKING TABLE 



The blocking table is constructed by 
Phase 7 only for PRFRM compilations. Phase 
7 constructs a blocking table entry for 
each of the data control blocks that were 
opened by Phase 1. The blocking table 
contains the information required for 
deblocking compiler input and for blocking 
compiler output. 

Each blocking table entry (24 bytes in 
length) has the following format: 



Logical record length* 

(2 bytes) 




Blocking factor 

(2 


bytes) 




Address of 


buffer 
(4 


2 
bytes) 




Address of 


buffer 
(4 


1 
bytes) 




Address of 
within the 


next logical record 
current buffer 
(4 bytes) 




Address to or from which the next 
record is to be moved 

(4 bytes) 



K 

Number of logical records in current 
buffer that remain to be processed 

(2 bytes) 
^ ^ 

Indicates if a READ or WRITE has 
been issued for data set 

(1 byte) 
^ ^ 

Indicates whether data set has been 
previously referenced 

(1 byte) 
^ ^ 

♦80 for SYSIN, SYSLIN, and SYSPUNCH; 
121 for SYSPRINT. 

L J 



BLDL TABLE 



The BLDL table is constructed by Phase 7 
only for PRFRM compilations. It is built 
using a BLDL macro-instruction- Phase 7 
supplies, as a parameter of the BLDL macro- 
instruction, the address of a skeleton BLDL 
table. The skeleton build table contains: 
(1) the names (8 bytes per name) of the 
compiler components to which control may be 
transferred via an XCTL macro- instruction, 
and (2) a 28- byte field for each of the 



above names. The corresponding build 
routine completes the skeleton BLDL table 
by placing information into these 28-byte 
fields. This information is obtained from 
the data set directory of the partitioned 
data set containing the FORTRAN IV (E) 
compiler. This information (such as the 
physical location of each compiler compo- 
nent in the partitioned data set) is 
required for transferring control for PRFRM 
compilations from one component of the 
compiler to the next. 

Each entry in the ELDL table is 36 bytes 
in length. The format of the BLDL table is 
as follows : 



Compiler 
component 
(8 bytes) 



lEJFAABO 
(Phase 1- 
subsequent 
entries 



lEJFAKAO 
(Print buffer 
module) 



lEJFEAAO 
(Phase 7) 



lEJFGAAO 
(Phase lOD) 



lEJFJAAO 
(Phase lOE) 



lEJFJGAO 
(Interlude lOE) 



lEJFLAAO 
(Phase 12) 



lEJFNAAO 
(Phase 14) 



lEJFNGAO 
(Interlude 14) 



lEJFPAAO 
(Phase 15) 



lEJFPGAO 
(Interlude 15) 



lEJFRAAO 
(Phase 20) 



lEJFVAAO 
(Phase 25) 



lEJFXAAO 
(Phase 30) 



Directory information 
compiler component 
(28 bytes) 



for 



Directory information 
Phase 1 (subsequent 
entries) 



for 



Directory information 
Print buffer module 



for 



Directory 
Phase 7 



information for 



Directory 
Phase lOD 



Directory 
Phase lOE 



information for 
information for 



Directory 
Interlude 



information 
lOE 



for 



Directory 
Phase 12 



information for 



Directory 
Phase 14 



Directory 
Interlude 



information for 
for 



information 
14 



Directory 
Phase 15 



information for 



Directory 
Interlude 



information 
15 



Directory 
Phase 20 



Directory 
Phase 25 



Directory 
Phase 30 



for 

information for 
for 
for 



information 
information 
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APPENDIX D: INTERMEDIATE TEXT 



Intermediate text is an internal rep- 
resentation of the source module from which 
the machine language instructions are pro- 
duced. The conversion from intermediate 
text to machine language instructions 
requires information about variables, con- 
stants, arrays, statement numbers, in-line 
functions, and subscripts. This informa- 
tion, derived from the source statements, 
is contained in the dictionary and overflow 
table, and is referenced by the intermedi- 
ate text. The dictionary and overflow 
table supplement the intermediate text in 
the generation of machine instructions by 
the various phases of the compiler. 

Phases lOD and lOE create intermediate 
text for use as input to subsequent phases 
of the compiler. Intermediate text is 
created by Phase lOD for the following 
declarative statements: 



ments. In-line function references are 
processed by generating the appropriate 
instruction format (s) and a word for the 
in-line function call. 

Phase 20 modifies the intermediate text 
entries that represent subscript expres- 
sions. Registers are assigned to subscript 
expressions (once they have been initially 
computed) and are inserted in the text 
entries for these expressions. 

Phase 25 uses the intermediate text in 
conjunction with the overflow table to 
generate the object module instructions. 

Phase 30 uses the intermediate text to 
generate any error and warning messages and 
to process the END statement. 



FORMAT 

SUBROUTINE or FUNCTION 



AN ENTRY IN THE INTERMEDIATE TEXT 



Phase lOE creates intermediate text for 
all statement functions and executable 
statements in the source module and for 
FORMAT statements interspersed within the 
executable statements. 



Phase 12 does not use the intermiediate 
text during its processing; all of the 
remaining phases (14,15,20,25, and 30) do 
use the intermediate text during process- 
ing. 



The intermediate text is constructed by 
Phases lOD and lOE for some declarative 
statements, all statement functions, and 
all executable statements. Each statement 
is represented in the intermediate text by 
one or more interm.ediate text words. (An 
intermediate text word is four bytes long.) 
This word normally contains three fields 
(as illustrated in Figure 34) . 



Phase 14 converts the FORMAT intermedi- 
ate text to a form acceptable to IHCFCOME. 
It also inserts the addresses assigned by 
Phase 12 to variables, constants, etc., 
into the intermediate text. In addition. 
Phase 14 rearranges the intermediate text 
entries of READ/WRITE statements and 
inserts implied DO and end DO adjective 
codes into the intermediate text when an 
implied DO is encountered in a READ/WRITE 
statement. 



j adjective code | mode/ type j pointer j 
j field I field | field | 
I III 

L J. i .J 

1 byte 1 byte 2 bytes 

Figure 34- Intermediate Text Word Format 



Phase 15 reorders the sequence of inter- 
mediate text entries in statements that can 
contain arithmetic expressions, and modi- 
fies these entries to a format that closely 
resembles machine language instructions. 
Machine operation codes and registers (when 
required) are inserted in the intermediate 
text. Argument lists for external and 
function references are created by modify- 
ing the intermediate text for those state- 



Adjective Code Field 



The adjective code field in the initial 
intermediate text word indicates the type 
of statemient for which the intermediate 
text entries are constructed, i.e.: 

• Reserved word, e.g., DO, CALL, GOTO. 

• Statement function (SF) . 

• Arithmetic. 
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The adjective codes in the subsequent 
intermediate text words for a statement 
indicate: 

• Delimiters, i.e., +-♦/♦*() , 

• The end of a statement (end mark) 

• An error 

The adjective code is composed of two 
hexadecimal digits. The various adjective 
codes possible (and their use) are indicat- 
ed in Figure 35. 



the internal statement numbers appearing in 
the intermediate text. Errors in the 
source module may cause the same statement 
number to be assigned more than once. If 
the user has requested a source listing, 
the internal statement number assigned to 
each statement appears next to that state- 
ment in the listing. 



An Example of an Intermediate Text Entry 



Mode/Type Field 



The mode/type field indicates the mode 
and the type of a symbol; e.g., a real 
function for a function name, or dummy 
variable for the variable name. These 
mode/type codes are the same as those used 
in the dictionary entries (refer to Appen- 
dix C), 

In the word with an end mark adjective 
code, another indicator may appear in the 
mode/type field. Normally, this field con- 
tains zeros; however, if any errors or 
warnings are detected in a statement, this 
field contains a hexadecimal 01. 

If errors or warnings were detected, the 
error/warning message number appears in the 
mode/type field of the word inserted in the 
intermediate text to represent that 
error/warning. Errors and warnings are 
detected by Phases lOD, lOE, 12, 14, 15, 
and 20. 



Pointer Field 



The pointer field consists of the last 
two bytes of the intermediate text word. 
It normally contains a relative pointer to 
the dictionary or overflow table entry for 
the symbol with which the adjective code is 
associated, e.g., the term +A has a + 
adjective code and an associated pointer 
field that contains a relative pointer to 
the dictionary entry for A. The pointer 
field may also be used to contain either 
the increment of a DO or implied DO vari- 
able, or the internal statement number in 
the word containing the end mark or the 
error/warning adjective code. 

The internal statement number is 
assigned during Phases lOD and lOE to each 
FORTRAN source Statement. This number dif- 
fers from the user-assigned statement num- 
ber. It is assigned whether or not inter- 
mediate text is to be created for that 
statement; therefore, there may be gaps in 



For the statement 

3 IF (+19 - MART) 



11, 7, 61 



the intermediate text created by Phase lOE 
is: 



adjective code 
field 



statement 
number 



arithmetic IF 
( 
unary + 



end mark 



mode/type 
field 



statement 
number 



00 



00 



integer 
constant 



integer 
variable 



statement 
number 



statement 
n um.be r 



statement 
number 



00 



pointer 
field 



p(3) 



0000 



0000 



p(19) 



p(jyiART) 



p(ll) 



p(7) 



p(61) 



internal 

statem.ent 

number 



1 byte 



I 1 byte 
-J. 



I 2 bytes 



p(x) indicates a pointer to the overflow 
table entry or the dictionary entry for 

X. 



Unique Forms of Intermediate Text 



When the intermediate text is created, 
there are four unique forms: the text for 
FORMAT statements, subscripted variables, 
COMMON statements, and EQUIVALENCE state- 
ments. 
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\L 
H\o 
i\w 

g\ 

h\ 

f 











h 

1 



2 



4 + + + 



+ 

AOP 






3 

h 

H 

5 

I 

6 

I 

7 



— + 



+ 

S 



-H 






8 



f 



I 



+ 

UNARY 
MINUS 

+ 



T 
O 
R 
E 
+ 



FDNC- 
TICN 

+ 

END 



+ 



+ 



+ 

+ 

i 

^ 

|. 

I- 



+ 



+ + 1 + + 



+ 



+ 

PORMAT 



+ 



+ 

SAOP 

+ 

IN_io 

LINE 

FONC 

+ 



+ 

LCR 



+ 



END 
DO 



CALL 



|. _+ + + + + 1 



D 



+- 

( 






ARITH- 
METIC 
IF 






+ ^ 



+ 

LCER 



+ 

CON- 
TINUE 

+ 

SF 



|. + + 1 + 1 1 4 

E 



+ + 



+ 

SIZE OF 
ARRAY 



+ + 



4 + 1 1 ^ 






+ -I 

END 
MARK 






DOUBLE 



UNCONDI- I COMPUT- | BACK- 
TIONAL I ED I SPACE 
GO TO I GO TO 

+ + 



ARITH 



REAL 



+ 



ARGU- 
MENT 



■I 

^^END 
MARK 
I 



EC^o 



BLANK 

1 

•I 

•f 



-4 



-■I 



-4 



REWIND 



^ 

BEGIN 

I/O 

LIST 

+ 



^ 






I 1 + 









+ + 



L 
O 
A 
D 

4 

COMMON 

1- 

END 
FILE 

^ 

END 
I/O 
LIST 

A 



4 

4 

i 



+ 

c 

o 

M 
P 
A 
R 

E 

+ 

EQUIVA- 
LENCE 

+ 

WRITE 
BINARY 

+ 

RETURN 



-f 



-+- 
I- 
I 



+ 

UNARY 
PLUS 

+ 



-+ + + 



IS 
|0 
IB 
IT 
|R 
|A 
|C 
IT 






+ + 

EXTER- I 
NAL I 

+ + 

READ I WRITE 
BINARY I BCD 

I 

+ + 

STOP I PAUSE 



+ 1 1 + + 






^ + + + + 



FUNC( 






+ + +— 



M 
U 
L 

T 
I 
P 
L 
Y 

+ 

DIMEN- 
SION 

+ 

READ 
BCD 



+ 

ARITH 
IF 



D 

I 
V 
I 
D 
E 
+ 



+ 

DO 



+ 

IMP 
DO 



+ 

+ 

+ 

I- 



INTEGER 

DOUBLE PRECISION 



SRDA^o 
+ 



+ 

STMT. 

NO. 

DEF. 

+ 

ERROR 
MESS- 
AGE 

+ 



f 

+ 



APOSTROPHE 
+ 






-+ 



^ 

4 



REAL 



SUBROU- 
TINE 



WARNING 
MESS- 
AGE 






^o Subject to change in later phases. 
^^ The '08' end mark is a transient code that exists 
intermediate text. 



in Phases lOD and lOE only. It is used to generate the *16* end irark in 



Figure 35. Adjective Codes as Used in Phases lOD and lOE 



FORMAT STATEMENTS; For FORMAT Statements, 
the adjective code field of the first 
intermediate text word of the statement 
indicates a FORMAT statement; the remaining 
two fields contain three bytes of the 
FORMAT statement card image. The remainder 
of the card image of the FORMAT statement 
appears in the following intermediate text 
words. For example, the statement; 



12 FORMAT (F20.5,I6) 



appears in the intermediate text as: 



The second word is of the form: 



adjective 
code field 



mode/type 
field 



■T 

I 

I pointer 

I field 



statement 
number 



statement | 
number | p(12) 



FORMAT 



I ( 



T 

F I 2 



•H 



I 



I 6 



I ) I blank 



blanks represent the remaining card 

columns to column 72 

(each card column represents 1 byte) 



-^ 



end mark 
1 byte 



00 



1 byte 



I internal 
I statement 
I number 
-i J 

2 bytes 



SUBSCRIPTED VARIABLE: When a subscripted 
variable is encountered in a source state- 
ment, an entry for a variable is made. 
That entry is followed by two additional 
intermediate text words to define the sub- 
scripted expression. The first word is of 
the form: 



r T T 1 

I ill 

I adjective code | mode/type | pointer | 
I field I field | field | 

i III 
|. + + ^ 

I SAOP I 00 I offset I 
j. + 1 ^ 

I 1 byte I 1 byte | 2 bytes j 
|. i X ^ 

I SAOP represents the subscript arithmetic) 
I operator, and the offset represents aj 
I part of the array displacement. (Refer j 
jto Appendix E for a discussion of array j 
[displacement.) j 

L J 



T 

1 


-T 

1 


1 

adjective code| mode/type 

field 1 field 
1 


1 

1 pointer 

1 field 
1 


1 


1 

L 


p (subscript 
inf ormiation) 


T 

1 p (dimension 
I information) 
_ 1 


2 bytes 


t 

1 2 bytes 
_j. 



The first field contains a relative poin- 
ter to the subscript information in the 
overflow table if the subscripted expres- 
sion contains variables. If the sub- 
scripted expression does not contain 
variables, this field contains zeros. 

The second field contains a relative 
pointer to the dimension information in 
the overflow table for the array that 
contains the subscripted expression. For 
example, if A (I, J) is an element in 
array A, the field contains the pointer 
to the dimension information for array A. 



The statement: 

APPLE = A(P0T,3) + B(2,l) 
appears in the intermediate text as: 



I 

adjective | 

code field | 

I 



mode/type 
field 



pointer 
field 



arithmetic | 

statement | 

+ 



mode/type 
of APPLE 



p (APPLE) 



mode/ type 
of A 



p(A) 



SACP 



00 



offset 



p (subscript 
information) 



p (dimension 
information) 



mode/type j 
of B I 



p(B) 



SAOP 



00 



I Offset 



00 



00 



p (dimension 
information) 



end mark 
1 byte 



00 

1 byte 



internal 
statement 
n timber 



2 bytes 
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COMMON STATEMENTS ; An entry in COMMON 
intermediate text represents a variable or 
an array encountered in a COMMON source 
statement. Phase 12 references these 
entries (serially) and assigns addresses to 
them in the COMMON area. (The assignment 
of addresses is discussed in detail in the 
Phase 12 description.) Each entry has the 
form indicated below: 



r T T 

pointer to the | length of the | not used 

variable or j name of the j 
array entry in | variable or | 
the dictionary] array j 



2 bytes 



1 byte 



|1 byte 

JL. 



|. J. J. ^ 

The first field contains the address of 
the dictionary entry for that variable or 
array. 

The second field contains the length of 
the name of the variable or array in 
EBCDIC (Extended Binary Coded Decimal 
Interchange Code) characters. The length 
is used to determine in which chain of 
the dictionary the variable or array is 
to be entered. 



Termination of all COMMON intermediate 
text is indicated by a two-byte termination 
indicator of the form: 



Each entry in the EQUIVALENCE intermedi- 
ate text has the following format: 



pointer 



■T 

I size 



•T 1 

I offset or 0000 



2 bytes 



I 2 bytes 
-J. 



I 2 bytes 
.X 



The first field is a pointer to the 
dictionary entry fcr the variable in 
question. 

The second field contains the size of the 
variable in bytes, or the size of the 
array in bytes if the variable is dimen- 
sioned. 

The third field contains the offset if 
this particular variable is subscripted, 
or 0000 if the variable is not subscript- 
ed. 



Termination of an EQUIVALENCE group is 
indicated by a two-byte termination indica- 
tor of the following form: 



I 0001 I 

L J 

2 bytes 

An Example of EQUIVALENCE Text; For the 
statement: 



0001 



2 bytes 



This termination indicator appears whether 
or not COMMON intermediate text exists. 

An Example of COMMON Text; For the state- 
ment: 

COMMON (A, R, ARNONN) 

the COMMON intermediate text is ; 



p (A) 
p (R) 



■T T 

I not used | 



p (ARNONN) 
2 bytes 



^ ^ 

1 I not used | 
1 ^ 

6 I not used | 
X J 

1 byte 1 byte 



EQUIVALENCE STATEMENTS; The EQUIVALENCE 
intermediate text is constructed by Phase 
lOD as a series of entries (one for each 
variable or array in an EQUIVALENCE group) . 
Phase 12 references these entries 
(serially) and assigns addresses to them. 
(The assignment ot addresses is discussed 
in detail in the Phase 12 description. ) 



EQUIVALENCE (GRW,KEL) , (RBJ(1,9) ,AMV(2,4) ) 
there are two EQUIVALENCE groups: 

• GRW,KEL 

• RBJ (1,9) ,AMV(2,4) 

where: 

GRW is real 

KEL is integer 

RBJ is a real array dimensioned as (9,9) 

AMV is a real array dimensioned as (9,4) 

The EQUIVALENCE text is: 
■-T 



r T — 

p(GRW) I t| I I Detail entry for GRW 

p(KEL) I 4 I iDetail entry for KEL 

0001 I EQUIVALENCE group 

I termination indicator 

p(RBJ) I 324 I 288 | Detail entry for RBJ 

p(AMV) I 144 I 112 IDetail entry for AMV 

0001 I EQUIVALENCE group 

I termination indicator 
J 

2 2 2 
bytes bytes bytes 



96 



MODIFYING INTERMEDIATE TEXT 



• Replacement of dictionary pointers. 



The intermediate text is created by 
Phases lOD and lOE, and is modified by 
Phases 14, 15, and 20. This modification 
prepares the intermediate text for use by 
Phase 25 in the generation of machine 
language instructions. The modifications 
made to the intermediate text are dis- 
cussed, phase by phase, in the following 
pages. 



• Modification of I/O statement inter- 
mediate text. 



• Modification of computed GO TO inter- 
mediate text. 

• Modification of RETURN intermediate 
text. 



Phase 14 



During Phase 14 processing, the inter- 
mediate text is modified in the following 
ways: 



REPLACEMENT OF DICTIONARY POINTERS! Dic- 
tionary pointers in the intermediate text 
are replaced by information essential for 
the processing to be performed by subse- 
quent phases of the compiler. The follow- 
ing examiples illustrate this modification 
to intermediate text entries. 



Input to Phase 14 






1 


Output from Phase 14 


For: 








1 
1 


the dictionary pointer is replaced by: 


variables, constants 
functions , 


arrays. 


and exte 


rna 

-1 

1 

1 
-J 


1 
1| 

1 


the relative 
Phase 12. 


address assigned by 


r — — - -T ~ - T 

[adjective | mode/type | 
1 code 1 of ACCESS 1 

L X X_ 

1 byte 1 byte 


p (ACCESS) 
2 bytes 


1 adjective 
j code 

1 byte 


"T ~ — ~T ~ 1 

1 mode/type 1 | 

i of ACCESS j a (ACCESS) j 

-X X J 

1 byte 2 bytes 


data set reference num.bers. 




-1 

1 
-J 


r 
1 


the data set 


reference number. 


r T — ~ - ~T~ 

1 ( 1 mode/type | 

I L X 


p(3) 


r ~ 

1 ( 


'T — T - ~^ 

1 mode/type | 3 | 
_x_ «. X J 


1 byte 1 


byte 


2 bytes 


1 byte 


1 


byte 2 bytes 


statement functions 
definition 


r 




1 

1 

1 
_j 

-^ 

1 
1 
1 


1 


the SF numbe] 


c assigned by Phase 14, 


r T 
|SF defini- |real 
jtion adjec- jment 
jtive code jtion 

L X 

1 byte 1 
use 


State- 1 
func- i 

1 
x_ 

byte 


p(SF) 
2 bytes 


|SF defini- 
jtion adjec- 
|tive code 

1 byte 


Ireal 
- i ment 

1 tion 
_x 

1 


T T 

State- 1 the rela- | 

func- jtive SF j 

j number j 

X J 

byte 2 bytes 


r- ~ T 

1 adjective |real 
1 code jment 
1 Ition 

L_ _ _ X 


State- 1 

func- i 

1 


p(SF) 


r ~ 

|ad jective 
j code 

1 

L 

1 byte 


Ireal 
i ment 
|tion 

_X 

1 


T ~ 1 

State- 1 the rela- | 

func- jtive SF j 

j number j 

X _ J 


1 byte 1 


byte 


2 bytes 


byte 2 bytes 
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MODIFICATION OF I/O STATEMENT INTERMEDIATE 



TEXT ; An I/O s 
ways . The begin 
is inserted in t 
each element of 
either an iinpl 
subscripted var 
detected, and i 
mediate text wor 
An end I/O is pi 
list. 



tatement is modified in two 
I/O intermediate text word 
he intermediate text for 
an I/O list. An element is 
ied DO, or consecutive non- 
iables. Implied DOs are 
mplied DO and end DO inter- 
ds are entered in the text, 
aced at the end of the I/O 



These modifications are illustrated in 
Figures 36 and 37, which show an indexed 
I/O list for a 2-dimensional array as it 
appears as input to and output froiti Phase 



r T T 1 

I WRITE I 00 10000 I 

I integer 
( variable 



-^ 



+ 


.„+ 


) |00 

_ X 


[0000 
J _ _ _ _ 


T 


t _ _ _ 


( |00 


[0000 


— 4. _ - 


. _x _ _ 


T 


T 


|real 


1 


( [subscripted |pCA) 


[variable 


1 


1 


.__+ 


SAOP 1 00 


[Offset 


^ J. _ _ _ 


J _ 




T 


p (subscript) 


|p (dimension) 
i_ _ 


"" ~ T ~ ~ 


T — 


1 integer 


1 


, 1 variable 
_x — 


[p(J) 


t — 


._ ■\— - — - 


1 immediate 


D0[ 


= 1 parameter 
. 1 . 


|1 
. _X _ — 


• T 


T 


1 immediate 


D0[ 


, 1 parameter 

4.— « 


(10 

4._ 


~ T 


1~ — — 


, 1 parameter 


11 


._ 4. -.__-._—__. 


.__x_«__«,_________ „ 


^-._— _—— - 


t 


) |00 


[0000 


T 


T 


1 integer 


1 


, [variable 
_ _ _ 1 __ _ 


|p(I) 
x_ _ 


- T ~ 


— +- — 


1 immediate 


D0[ 


= [parameter 


|1 
X — — — 




— t 


[ immediate 


D0| 


, [parameter 
1 


|15 

X — 


T 


T 




D0[ 


, 1 parameter 


|1 

J _ 


T 


T 


) |00 


[0000 
x_ 






1 


[ internal 


end mark [ 00 


[ statement number 


______ __ _ 1 _ _ 


X _ 



p(N) 



14. The interirediate text in these figures 
is developed from the following I/O state- 
ment : 

WRITE (N) ((A(I,J),J=1,10),I=1,15) 



T 


T 


WRITE [00 

_x _ _ _ _ 


[0000 

X _ _ — . 


_ -^ _ _ _ . 


t 


[ integer 




( [variable 
_x 


(address (N) 
X _ 


-f 


t — 


end mark ^1 00 

_ _ X — - 


[0000 

X 


T 


T 


implied D0[ 00 


[0000 

J 


T 


T 


[ integer 




, [variable 
_ _x 


[ address (I) 
X — — 


— t — — 


t — — 


[ immediate 


D0[ 


= [ parameter 


|1 


+ 


.__+ 


1 iirnediate 


D0[ 


, [ parameter 

. X _ — — - 


[15 
X— — — _ _ _ . 


— ^ _ _ _ _ 


— t - - _ . 


1 immediate 


D0| 


, [ parameter 
__ J _ _ _ 


|1 

J _ _ _ 


— ^_ _ _ _ 


t _ _ _ 


implied D0[ 00 


[GOOO 
._ L «. _^_ 


7 


— t 


[ integer 




, [variable 
. X — — 


[ address (J) 
L 


t — "■- 


— t — — — 


[ iirirediate 


D0[ 


= [ parameter 
. _ _ J _ _ 


[1 

X — _ 


_ _ ^ — _ _ 


T 


[ immediate 


D0[ 


, [parameter 


[10 


1 


.__! 


[ immediate 


D0[ 


, [ parameter 
X — 


|1 
X — — 


_ — ^ _ — 


T 


begin I/O [GO 

X— — — — — 


[OGOO 


^ _ — 


— t 


SAOP [00 


[Offset 


«_«,- ._««x______ 


1 




" 


p( subscript) 


|p (dimension) 

._ L—- . _ 


T 


1 


[ real 




( [subscripted [ address (A) 


[variable 


1 


1 


.__! 


end DO [ 00 

_ X _ _ . 


[0000 

X— — — — _ 


t - - - 


t — 


end DO j 00 

_ X _ — 


jOOOO 
1 __ 


T — 


T 


end I/O (GO 


IGOGO 


^ 


.__! 




1 internal 


end mark | 00 


1 statement number 


X 


X 



Figure 36. Example of Input to Phase 14 



^ An end mark is inserted prior to the 
I/O list. This allows Phase 20 to 
treat the I/O list as a separate state- 
m.ent . 

Figure 37. Example of Output from Phase 14 
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MODIFICATION OF COMPUTED GO TO STATEMENTS; 
During the Phase 14 processing, a count of 
the number of statement niombers in the 
computed GO TO statement is inserted into 
the intermediate text for that statement. 
This simplifies the processing of this 
intermediate text for the following phases. 
The intermediate text is rearranged so that 
the word containing the integer variable 
precedes the count word. 



A computed GO TO statement such as: 
GO TO (11,11,42,23,99),! 

appears in the input to Phase 14 as: 



r T T T 

1 adjective code | mode/type | pointer | 
1 field i field j field | 

L — _— J.—— _X J 


r--- T- t 1 
1 computed GO TO | 00 | 0000 | 
j. + + ^ 

1 ( 1 statement | p(ll) | 
1 1 number | j 
|. 1 + ^ 

1 , 1 statement | p(ll) | 
1 1 number | j 
|. + 1 ^ 

1 , 1 statement | p(U2) | 
1 1 number j | 
y + + ^ 

1 , 1 statement | p(23) | 
1 j number | j 
j. + + ^ 

1 , 1 statement | p(99) | 
1 1 number j j 
j. + + ^ 

1 ) 1 00 1 0000 1 

J. + 1 ^ 

1 , 1 integer | p(I) | 
1 I variable | j 

L X X J 


r 1 T 1 

1 end mark | 00 1 internal | 
1 1 1 statement! 
1 1 1 number j 

L X _X J 



r T T 1 

1 adjective code | mode/type | pointer | 
1 field 1 field | field | 

L i_ X _ -J 


r T T 1 

1 computed GO TO | 00 | 0000 | 

L l_ 1 J 


r T- t — 1 

1 , 1 integer | a (I) | 
1 1 variable | j 
I. + + ^ 

1 count 1 00 1 5 1 

L X - — X- J 


r — t t 1 

1 ( 1 statement | p(ll) | 
1 1 number j j 

I X— — X-— J 


r T ti 
1 , 1 statement | p(ll) | 
I 1 num.ber | j 
j. 1 1 ^ 

1 , 1 statement 1 p(42) | 
I 1 number j j 
^ + 1 ^ 

1 , 1 statement | p(23) | 
I 1 number | | 
^ + + ^ 

1 , 1 statement | p(99) | 
I 1 number j j 
|. 4 4. 4 

1 ) 1 00 1 0000 1 

L_— X— _ X_— J 


r t t1 
1 end mark | 00 | internal | 
1 j I statement! 
I I 1 number | 



MODIFICATION OF RETURN STATEMENT INTERMEDI- 
ATE TEXT; If a RETURN statement appears 
within a main program. Phase 14 modifies 
the adjective code field so that a STOP is 
indicated. If the RETURN statement is not 
within the main program, no modification is 
made. 



The output of Phase 14 for the above 
illustrated computed GO TO is: 



Phase 15 



During Phase 15 processing, the follow- 
ing intermediate text modifications are 
made: 

• Replacement of adjective codes and 
mode/type codes. 

• Reordering of intermediate text. 
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REPLACEMENT 



OF 



ADJECTIVE 



CODES 



AND 



MODE/TYPE CODES; During the processing of 
arithmetic expressions. Phase 15 replaces 
the adjective codes (within the intermedi- 
ate text entries for arithmetic 
expressions) by actual machine operation 
codes. Phase 15 also assigns registers to 
the operands in arithmetic expressions 
(when required) ; the corresponding register 
numbers are inserted in the mode/type code 
fields of the intermediate text that rep- 
resents those expressions. 



The result of the above modification is 
a transformation of the intermediate text 
entries for arithmetic expressions into a 
form that closely resembles the RX instruc- 
tion format. 

The following example indicates the 
replacement of adjective codes by miachine 
operation codes, and the replacement of 
mode/type codes by registers. The simple 
arithmetic statement 

PRI = +VATE - VAR 

appears in the input to Phase 15 as: 



r T 

adjective 
code field 



arithmetic 
statement 



-+ 



unary plus 



end 
mark 



mode/type 
code field 



T 1 

pointer 
field 



real variable 



-+- 



00 



real variable 



real variable 



00 



a (PRI) 



0000 



+- 



a (VATE) 



a (VAR) 



internal 

statement 

number 



1 byte 



1 byte 



2 bytes 



The pointer field contains the address of 
the resultant field of the arithmetic 
statement. 



The output from Phase 15 for this state- 
ment is: 



r T 

adjective 
code field 



arithmetic 
statement 



4- 



ST 



end 
mark 



mode/type 
code field 



■T 1 

I pointer 
I field 



real variable |a(PRI) 



4- 



reg . #3 | variable | a (VATE) 



■+- 



reg . #3 j variable j a (VAR) 



4- 



4- 



reg . #3 | variable | a (PRI) 
i 



00 



1 byte 



1 byte 



4 

I internal 
I statement 
I number 

.± 

2 bytes 



The first operand VATE, is loaded into 
register #3. The second operand, VAR, is 
subtracted from VATE. The result is stored 
in the resultant field, PRI. 

In addition, registers are assigned and 
are inserted in the mode/type code field of 
the following: 

• Intermediate text entries for exponen- 
tiation. 

• Intermediate text entries for in-line 
functions, referenced subprograms, and 
statement function calls. 

• Intermediate text entries for subscript 
expressions. 

The following examples illustrate this 
modification to the intermediate text. 
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Input To Phase 15 



Output From Phase 15 



For: 
exponentiation. 



r T T T 

I |irode/type | | 

I** I information! a (POWER) | 
L X X J 

1 byte 1 byte 2 bytes 



Phase 15 assigns: 



a register to contain the result of the 
required library subprcgrait^ execution. 



L 



T T T 1 

I I result! I 

I ! reg | a (POWER) | 

-X X J J 



1 byte 



1 byte 



2 bytes 



in-line functions. 



one or two registers (depending 
on the specific in-line function) 
to be used as argument registers. 
The register specified in the Rl 
field is used as the result register. 



r T 

I in-line | 

I function j not used 

I adj. code | 

,. 1 



j code num- j 
jber of in- j 
! line f unct. j 

+ ^ 



I Load 



I- 



|F( 

I 

L 



not used j a (argument) 



X X J 

1 byte 1 byte 2 bytes 



1 +. 

I in-line ! ! 
I function | R2 | 
I adj. code | ! 

L X X. 



I I not ! I 
!R1 ! used ! a (argument) ! 
+ -I 



I code num- | 
Rl jber of in- | 

I line f unct. j 
X J 



1 byte 1 byte 



2 bytes 



subscript expressions. 



r T T 1 

I subscript j mode/type ! j 

I adj. code j information! Offset j 

L X X J 



a work register (to be used by 
Phase 20) to aid in the computa- 
tion of the subscript expression- 



r T— 

I subscript I 
I adj. code |0 
L x_. 



■T T 1 

!work I I 

!reg. j Offset j 

-X L J 



1 byte 



1 byte 



2 bytes 



1 byte 1 byte 



2 bytes 



REORDERING OF INTERMEDIATE TEXT: Phase 15 
reorders the intermediate text entries 
within arithmetic expressions so that the 
object module instructions produced by sub- 
sequent phases are generated according to a 
hierarchy of operators. 



The following example indicates this 
reordering process. 



The statement: 



DGM = BCR*(WRG+WAR) 



appears in the input to Phase 15 as; 



r T 

|ad jective 

I code 

f 

! arithmetic 



h 



1 + 
I" 



!) 
j. 

! end 
mark 



1 byte 



-+- 



mode/type 
code 



T 1 

pointer 
field 



real variable 



real variable 



00 



real variable 



real variable 



00 



00 



a(DGM) 



a(BCR) 



0000 



a(WRG) 



a (WAR) 



0000 



internal 

statement 

number 



1 byte 



2 bytes 
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The output from Phase 15 for this state- 
ment is : 



f~ 


-T 


-T" 


T 


1 adjective 


1 ff,ode/type 


1 


pointer | 


j code 


1 code 
-J. _ _ _ 


1 
1 


field 1 




T 


1 




jarithmeti 


c| real variable 


1 

1 


a(DGM) 1 




T T 


1 




|LE 


1 register | variable 


1 


a(WRG) 1 




1 6 1 information! 






1 1 


1 




r *" 


T T 


1 




|AE 


1 register | variable 


1 


a (WAR) 1 




1 6 1 information] 






i_ _ _ _ J. _ 


1 






T T 


I 




|ME 


1 register | variable 


1 


a(BCR) 1 




1 6 1 inf ormatio 


n| 




|. 


.+ + 


-+- 


^ 


|STE 


1 register | variable 


1 


a(DGM) 1 




1 6 1 information] 






_| X 


-+- 




lend 




1 internal | 


|inark 
1 


1 00 


1 statement | 
1 number | 



L X X J 

1 byte 1 byte 2 bytes 



Phase 20 



Phase 20 optimizes the interm^ediate text 
entries for subscript expressions. This 
optimization consists of modifying portions 
of existing subscript intermediate text and 
creating new subscript intermediate text 
for literals that are generated during the 
subscript optimization process. The chan- 
ges made to subscript intermediate text 
will be discussed by examining a general 
subscript expression as it appears in the 
input to Phase 20 and by examining the 
subscript intermediate text output from 
Phase 20 for this expression. 



SUBSCRIPT 



INTERMEDIATE TEXT INPUT : 



The 

intermediate text input to Phase 20 for a 
general expression is shown in Figure 38. 

SUBSCRIPT INTERMEDIATE TEXT OUTPUT; Sub- 
script intermediate text output from Phase 
20 depends on the previous optimization (if 
any) of the subscript expression. Three 
adjective codes are used to indicate the 
different conditions that can be present in 
subscript intermediate text output. These 
conditions are explained in the following 
paragraphs. 



r T T 

adjective code | mode/type | pointer 
field I field I field 



adjective code | O |W 
J x_. 



p (subscript) 



I offset 
4- 



|p (dimension) 



OP 



1 byte 



■T T T 

I R I Type I a (variable) 

4 -^- 



|1 byte 



2 bytes 



Adjective code contains the adjective 
code for a subscripted variable portion 
of text. 

contains a zero value. 

W contains a work register assigned by 
Phase 15. 

Offset contains the value of the offset 
portion of the array displacement. 

p( subscript) contains the pointer to sub- 
script information in the overflow table 
for this expression. 

p (dimension) contains the pointer to 
dimension information in the overflow 
table for this expression. 

OP contains the operation code assigned 
by Phase 15. 

R contains a register assigned by Phase 
15. 

Type contains the residual (since it is 
no longer necessary) type inform.ation for 
the subscripted variable. 

a (variable) contains the address of the 
subscripted variable. 



Figure 38. Subscript Intermediate 
Input Format 



Text 



SAOP (Subscript Arithmetic Operator) Adjec- 
tive Code; This code indicates that a 
subscript expression has not been previous- 
ly optimized, and that an offset literal 
was not generated for the value resulting 
from the addition of the offset portion of 
the array displacement to the subscripted 
variable address displacement. Subscript 
text output associated with an SAOP adjec- 
tive code is shown in Figure 39. 
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adjective code 
field 


-T T 

1 mode/type | pointer 
1 field 1 field 


SAOP 


T 

1 
J._. 


N 1 W 1 offset 

X _ i_ 


p (subscript) 




|a(Cl*L) 
i _ 


a(C2*Dl*L) 




|a(C3*Dl*D2*L) 


OP 


T ■ 

1 
J. . 


R 1 X 1 a (variable) 
_ i _ _ 1 _ 


1 byte 


T 

|1 
_J._. 


t 

byte 1 2 bytes 
X 



-^ I- 



SAOP contains an adjective code designat- 
ing the form of the interirediate sub- 
script text. 

N contains the number of dimensions of 
the subscripted variable. 

a(Cl*L), a(C2*Dl*L), and a(C3*Dl*D2*L) 
contain the addresses of the literals 
that combine to form the CDL portion (see 
Appendix E) of the array displacement. N 
determines which addresses must appear. 
For example, if N is 1, only a(Cl*L) 
appears. (If the first literal, C1*L, is 
a power of 2, that power appears instead 
of the address of that literal.) 

X contains the register assigned to the 
subscript expression for computation by 
Phase 20. 



Note: 



All other entries are as defined 



in Figure 38. 



Figure 39. Subscript Intermediate Text 
Output From Phase 20 — SAOP 
Adjective Code 



XOP (Offset Literal) Adjective Code; This 
code indicates that the subscript expres- 
sion has not been previously assigned a 
register and that an offset literal was 
generated for the value resulting from the 
addition of the offset portion of the array 
displacement to the displacement of the 
subscripted variable address. The sub- 
script intermediate text output associated 
with an XOP adjective code is shown in 
Figure UO. 

AOP (Arithmetic Operator Without Subscripj:) 
Adjective Code; This code indicates that 
the subscript expression has previously 
been assigned a register. The subscript 
intermediate text output associated with an 
AOP adjective code is shown in Figure 41. 



r T T 

adjective code | mode/type | pointer 

field I field | field 



XCF 



T- 

N I 



W I a (generated 
I literal) 



p (subscript) 



|a(Cl*L) 



a(C2*Dl*L) 



a(C3*Dl*D2*L) 



OP 



R I X i a (variable) 



1 byte 



|1 byte I 2 bytes 

.i. X 



XOP contains an adjective code designat- 
ing the form of the subscript intermedi- 
ate text. 

a (generated literal) contains the address 
of the offset literal generated by Phase 
20. 

Note: All other entries are as defined in 



Figures 38 and 39. 



Figure 40. Subscript Intermediate Text 
Output from Phase 20 — XOP 
Adjective Code 



r T T 

adjective code | mode/type | pointer 
field I field | field 



AOP 



B j offset 



OP 



R I X I a (variable) 
L. 



1 byte 



4- 



I 1 byte 1 2 bytes 



AOP contains an adjective code designat- 
ing the form of subscript intermediate 
text. 

contains a zero value. 

B contains an indicator. A hexadecimal 
indicates that the actual offset is in 
the offset field. A hexadecimal F indi- 
cates that the address of the generated 
offset literal appears in the offset 
field. 

Note ; All other entries are as in Figures 



38 and 39. 



Figure 41. Subscript Intermediate Text 
Output from Phase 20 — AOP 
Adjective Code 
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APPENDIX E: ARRAY DISPLACEMENT COMPUTATION 



Array displaceitient is the distance 
between the first element in an array and 
a specified element to be referenced from 
the array. To increase compilation effi- 
ciency, the array displacement is divided 
into portions and computed during differ- 
ent phases. To tie these separate compu- 
tations into one coordinated presentation, 
the method of array displacement computa- 
tion is developed in the following text. 

Before discussing the actual computa- 
tion, it is desirable to understand how an 
element is referenced in a 1-, 2-, and 
3-dimensional array. 



ing the number of el 
part by the array e 
resulting value is c 
factor for the follow 
the element length 
dimension factor is 3 
The dimension facto 
role in referencing a 
a 2-dimensional array 



ements in a dimension 
lement length. The 
onsidered a dimension 
ing discussion. (If 

in array A is 4, the 

times 4, or 12.) 

r plays a significant 

specific element in 



Before discussing how a specified ele- 
ment is referenced, the hexadecimal number 
scheme used to address an array element 
must be considered. The first digit of 
the hexadecimal number scheme (as used in 
the compiler) is zero. The 16 hexadecimal 
digits are: 



ONE DIMENSION 



0,1,2,3,4, 5, 6, 7, 8,9, A, B, CD, E, and F. 



Assume a 1-dimensional array of five 
elements, expressed as A(5). To reference 
any given element in this array, the only 
factor to be considered is the length of 
each element. The third element, for 
example, is two element lengths from the 
beginning of the array. 



TWO DIMENSIONS 



For a 2-dimensional array, A (3, 2), an 
element can no longer be thought of as a 
single array element. Instead, each ele- 
ment in a 2-dimensional array consists of 
the nimiber of array elements designated by 
the first number in the subscript expres- 
sion used to dimension the array. For 
reference, an element in a 2-dimensional 
array will be called a dimension part. 
For example, in the array of A(3,2) : 



Consider that the element Ad, 2) is to 
be referenced from, the array dimensioned 
as A (3, 2). Observation shows one dimen- 
sion part must be bypassed in order to 
reference the specified element. The com- 
putation to reference this element 
requires the values in the subscript 
expression (1,2). Each number must be 
decrem.ented by 1 to compensate for the 
zero-addressing scheme used by the compil- 
er. This leaves an expression of (0,1). 
The second number (1) dictates the number 
of dimension parts to be bypassed in order 
to arrive at the dimension part in which 
the specified element is located. Once 
this dimension part is found, the first 
number (0) indicates the number of ele- 
ments in that dimension part that must be 
bypassed to reference the specified ele- 
ment. 



THREE DIMENSIONS 



A(l,l) A(2,l) A(3,l)-, - Dimension Part 
. J 



|->A(1,2) A(2,2) A(3,2) - Dimension Part 



the first dimension part consists of 
A (1,1), A (2,1), and A(3, 1). Note that the 
number of elements in each dimension part 
is the same as the first number (3) in the 
subscript expression used to dimension 
array A. 

Dimension parts are consistent in 
length. Length is determined by multiply- 



The same reasoning can be projected 
into a 3-dimensional array,. For a 
3-dimensional array, A(3,2,3), an element 
can neither be considered a single array 
element, nor thought of as a dimension 
part. Each element in a 3-dimensional 
array consists of the number of dimension 
parts designated by the second number in 
the subscript expression used to dimension 
the array. For reference, therefore, an 
element in a 3*dimensional array will be 
called a dimension section. For example, 
in the array A(3,2,3): 
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Dimension Section 
A(l,l,l) A(2,l,l) A(3,l,l) 



L>A(1,2,1) A(2,2,l) A(3,2,l) 



j Dimension Section 

I->A(1,1,2) A(2,l,2) A(3,l,2) 



L>A(1,2,2) A(2,2,2) A(3,2,2) 



j Dimension Section 

1->A(1,1,3) A(2,l,3) A(3,l,3) 



- Dim. Part 



- Dim. Part 



- Dim. Part 



- Dim. Part 



- Dim. Part 



L>A(1,2,3) A{2,2,3) A(3,2,3) - Dim. Part 



part, and one array element must be 
bypassed in order to obtain the specified 
element. The computation to reference 
this element requires the values in the 
subscript expression (2,2,3). Each number 
must te decremented by 1 to compensate for 
the zero-addressing scheme used by the 
compiler. This leaves an expression of 
(1,1,2). The third niunber (2) indicates 
the number of dim.ension sections to bypass 
in order to arrive at the dimension sec- 
tion in which the specified element is 
located. The second number (1) indicates 
the number of dimension parts, within the 
referenced dimension section, that must be 
bypassed to arrive at the dimension part 
in which the specified element is located. 
Once this dimension part is found, the 
first number (1) indicates the number of 
elements in that dimension part that must 
be bypassed to reference the specified 
elemient. The preceding example is illus- 
trated in Figure 42. 



the first dimension section consists of 
the dimension part beginning with A 
(1,1,1) and the dimension part beginning 
with A (1,2,1). In this example, we have 
three dimension sections, as specified by 
the third number in the subscript 
expression used to dimension the array. 



This concept of how a specified element 
is referenced from an array is generalized 
in the following text. 



Again, the length of the dimension 
sections is consistent. The length, in 
this case, is determined by multiplying 
the number of elements in a dimension part 
by the number of dimension parts by the 
array element length. The resulting value 
is considered a dimension multiplier for 
the following discussion. (If the element 
length in array A is 4, the dimension 
multiplier is 3 times 2 times U or 2U.) 



Consider that the element A (2,2,3) is 
to be referenced from the array dimen- 
sioned as A (3,2,3). Observation shows 
two dimension sections, one dimension 



General Subscript Form 



The gene 
(C1*V1+J1,C2*V2 
some array, A 
D3) . The requi 
specified by 
and (C3+V3+J3) 
first, second, 
eters multiplie 
sion informati 
Therefore, the 
for the general 



ral subscript form 

+J2,C3*V3+J3) refers to 

, with dimensions (Dl, D2, 

red number of elements is 

(Cl+Vl+Jl); (C2+V2+J2) *D1; 

*D1*D2, representing the 

and third subscript param- 

d by the pertinent dimen- 

on for each parameter. 

required number of elements 

subscript form is: 



(C1*V1+J1)+(C2*V2+J2) *D1+(C3*V3+J3)*D1*D2 



A(2,2,3) 

I 

I Zero-addressing adjustment 
V 
A(1,I,2) 
I I 

I I 

I L > 2 dimension sections 

I 

L > 1 dimension part 

L > 1 array element 

Figure 42. Referencing a Specified Element in Array 



Kust be bypassed to 
obtain specified element 



L J- J 
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Array Displacement 



The array displacement for a subscript 
expression, specifically stated, is the 
required number of array elements multi- 
plied by the array element length. There- 
fore, the array displacement is: 



[ (C1*V1+J1) + (C2+V2+J2) +01+ 

(C3*V3+J3)*D1*D2)]*L 

Because of the zero-addressing scheme, the 
displacement is: 

(C1*V1+J1-1) ♦L+ (C2+V2+J2-1) ♦D1+L+ 
(C3+V3+ J3-1) *D1*D2*L 

This expression can be rearranged as: 

(C1*V1*L+C2*V2*D1*L+C3*V3*D1*D2*L)+ 
[ ( Jl-1) *L+ ( J2-1) ♦D1*L+ (J3-1) ♦D1*D2*L) ] 

The first portion of the array dis- 
placement is referred to as the CDL 
(constant, dimension, length) portion and 
is derived from: 

C1*V1*L+C2*V2+D1*L+C3*V3*D1*D2*L 

VI, V2, and V3 are the variables of the 
expression and cannot be computed until 
the execution of the object module. This 
leaves the following components, which 
constitute the CDL portion of the dis- 
placement: 

Cl+L is the first component, 
C2*D1*L is the second component, and 
C3*D1*D2*L is the third component. 

The second portion of the array dis- 
placement: 

(Jl-1) *L+ ( J2-1) ♦D1+L+ ( J3-1) ♦D1*D2*L 



is known as the offset portion and is 
calculated by Phase lOE. The offset is 
calculated using the following formulas 
for 1-, 2-, and 3- dimensional arrays. 



OFFSET= [Jl-1] *Length 



OFFSET= t (Jl-1) + (J2-1) *D1] 

♦Length 

OFFSET= [ (Jl-1) + (J2-1) *D1 

+ ( J3-1) ♦D1+D2] *Length 



1-dimensional 



2-dimensional 



3-^dimensional 



This calculation is performed and the 
result is entered in the offset field of 
the intermediate text entry for that sub- 
script. Refer to Appendix D for the 
intermediate text format. 

The CDL components are calculated dur- 
ing Phase 20. If the CDL component is a 
power of 2, that power replaces the offset 
field in the intermediate text entry. If 
the CDL component is not a power of 2, a 
literal is formed and assigned an address 
(by Phase 20) . The address of the literal 
is then entered in the offset field of the 
intermediate text entry. Refer to Appen- 
dix D for the intermediate text form and 
content. 

Phase 25 combines the CDL components, 
the variables, and the offset to produce 
the array displacement. The procedure is 
as follows: the first component of the CDL 
multiplied by the first variable of the 
subscript expression (C1*L)*V1; plus the 
second component of the CDL multiplied by 
the second variable of the subscript 
expression (C2*D1*L) *V2, plus the third 
component of the CDL multiplied by the 
third variable of the subscript expression 
(C3*D1*D2*L)*V3; plus the offset: 

(Jl-1) *L+ (J2-1) ♦Dl+L* (J3*iy *D1*D2*L. 
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APPENDIX F: TABLES USED BY THE OBJECT MODULE 



The following tables are used by the 
object module to execute the instructions 
generated by the coirpiler: 

• Branch list table for referenced 
statement numbers 

• Branch list table for SF expansions 
and DO statements 

• Argument list table for subprogram and 
SF calls 

• Base value table 

The following discussions describe the 
use and format of each table. 



BRANCH LIST TABLE FOR SF EXPANSIONS AND DO 
STATEMENTS 



Phase 20 allocates storage for the 
branch list table for SF (statement 
function) expansions and DO statements. 
During Phase 25 processing, the relative 
addresses for the first executable instruc- 
tions in the SF expansions and DO loops are 
inserted into locations relative to the 
start of the branch table. The locations 
for the SF expansions were determined by 
Phase 14; the locations for the DO loops 
are determined by Phase 25. The table is 
used, at object time, either by the 
instructions generated to reference SF 
expansions or by the instructions generated 
to control the iteration of DO loops. 



BRANCH LIST TABLE FOR REFERENCED STATEMENT 
NUMBERS 



Phase 12 allocates storage for the 
branch list table for referenced statement 
numbers and assigns a relative position 
(relative to the start of the branch 
table) to each executable statement that 
is referenced by other statements. Phase 
25 inserts the relative addresses, for 
these statements, into the positions dic- 
tated by Phase 12. The table is used, at 
object time, by the instructions generated 
to branch to executable statements. 

Each entry in the table is the address 
of a referenced statement number. The 
format of the branch list table for ref- 
erenced statement numbers is illustrated 
in Figure 43. 



r 1 

address of first referenced statement 
number 



address of second referenced statement 
number 



address of last referenced statement num- 
ber 



Each entry i 
address of the fi 
expansion or th 
instruction in 
instruction of t 
DO counter.) The 
of the branch li 
and DO statemients 
44. 



n the table is either the 
rst instruction in an SF 
e address of the second 
a DO loop. (The first 
he DO loop initializes the 

format and organization 
St table for SF expansions 

is illustrated in Figure 



r 1 

address of first instruction in SF expan- 
sion 1 



i f 



^ F 



address of first instruction in SF expan- 
sion 2 



address of first instruction in SF expan- 
sion N 



address of second instruction in DO loop 

1 



address of second instruction in DO loop 
2 



address of second instruction in DO loop 

M 



4 bytes 



4 bytes 



Figure 43. Format of Branch List Table for Figure 44. Format of Branch List Table for 
Referenced Statement Numbers SF Expansions and DO Loops 
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All SF defini 
the executable s 
statements) in a 
Phase 25 encou 
codes prior to 
adjective code, 
placement of al 
into the branc 
loop address. 



tions must appear prior to 

tatements (this includes DO 

source module. Therefore, 

nters all the SF adjective 

the first DO statement 

This accounts for the 

1 SF expansion addresses 

h table before the first DO 



ARGUMENT LIST TABLE FOR SUBPROGRAM AND SF 
CALLS 



above arguments are inserted into the argu- 
ment list table. The starting address of 
the first argument of each argument list is 
passed as part of the intermediate text to 
Phase 25 (the total number of SFs is passed 
in the communication area). 



Each entry in the argument list table is 
either the address of an argument used in a 
subprogram or the address of an argument 
used in an SF. Entries are made in the 
table as Phase 20 encounters each subpro- 
gram, or SF reference. The format and 
organization of the argument list table is 
illustrated in Figure 45. 



Phase 20 allocates storage for the argu- 
ment list table for the argumients of sub- 
program and SF calls. During Phase 20 
processing, the relative addresses of the 



BASE VALUE TABLE 



first argument of first subprogram or SF 
reference encountered 



last argument of first subprogram or SF 
reference encountered 



first argument of second subprogram or SF 
reference encountered 



last argument of second subprogram or SF 
reference encountered 



first argument of last subprogram or 
reference encountered 



SF 



last argument of last subprogram or SF 
reference encountered 



4 bytes 

Figure 45. Format of Argument List Table 
for Subprogram and SF Calls 



The base value table is generated by the 
various phases of the compiler as base 
registers are required by the object cod- 
ing. The table is assembled in its final 
form by Phase 25. The compiler-generated 
instructions that load base registers, at 
object time, use the base value table in 
order to obtain the proper base register 
values. 



Figure 46 illustrates the format and 
organization of the base value table. 



r 1 

value placed in the first base register 
used to obtain data in COMMON 



value placed in the last base register 
used to obtain data in COMMON 



value placed in the first base register 
used to obtain data in the object module 



value placed in the last base register 
used to obtain data in the object module 

L 

4 bytes 
Figure 4 6. Format of Base Value Table 
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APPENDIX G: OBJECT-TIME LIBRARY SUBPROGRAMS 



The object module, compiled from the 
FORTRAN source module, must be first pro- 
cessed by the linkage editor prior to 
execution on the IBM SYStem/360. The lin- 
kage editor must combine certain FORTRAN 
library subprograms with the object module 
to form an executable load module. They 
are: 



• IHCFCOME (Object-time 
statement processor) . 



I/O 



source 



• IHCFIOSH (Object-time FORTRAN I/O 
data management interface) . 

• IHCIBERR (Object-time source statement 
error processor) . 



• READ/WRITE routines. 

• I/O device manipulation routines. 

• Write-to-operator routines. 

• Utility routines. 

Charts 13, 14, and 15 illustrate the 
overall logic and the relationship among 
the routines of IHCFCOME. Table 26, the 
routine directory, lists the routines and 
their functions. 

Note; IHCFCOME itself does not perform the 
actual reading from or writing onto data 
sets, or I/O device manipulation. It sub- 
raits requests for such operations to an I/O 
interface module IHCFIOSH (that is, FIOCS#) 
by means of an implied external reference. 
IHCFIOSH, in turn, interprets the requests 
and submits them to the appropriate BSAM 
(basic sequential access method) routines 
for execution. 



IHCFCOME 



IHCFCOME, a member of the FORTRAN system 
library (SYSl.FORTLIB) , performs object- 
time implementation of the following source 
statements: 

• READ and WRITE. 

• BACKSPACE, REWIND, and END FILE (I/O 
device manipulation) . 

• STOP and PAUSE (write to operator) . 



In addition, IHCFCOME processes object- 
time errors detected by various FORTRAN 
library subprograms, processes arithmetic- 
type program interruptions, and terminates 
load-module execution. (The load module is 
produced by the linkage editor, and 
contains the object module produced by the 
compiler, IHCFCOME, IHCFIOSH, IHCIBERR, and 
any required subprograms.) 



All linkages from the load module to 
IHCFCOME are compiler generated. Each time 
one of the above-mentioned source state- 
ments is encountered during compilation, an 
appropriate calling sequence to IHCFCOME is 
generated and is included as part of the 
load module. At object-time, these calls 
are executed, and control is passed to 
IHCFCOME to perform the specified opera- 
tion. 

The routines of IHCFCOME are divided 
into the following categories: 



READ/WRITE Routines 



For the implementation of READ and WRITE 
statements, IHCFCOME consists of the fol- 
lowing three sections; 

• An opening section, which initializes 
data sets for reading or writing. 

• An I/O list section, which transfers 
data from an input buffer to the I/O 
list items or from the I/O list items 
to an output buffer. 

• A closing section, which terminates the 
I/O operation. 

Within the discussion of each section, a 
READ/WRITE operation is treated in one of 
two ways: 

• As a READ/WRITE operation requiring a 
format. 

• As a READ/WRITE operation not requiring 
a format. 



OPENING SECTION; The compiler generates a 
calling sequence to one of four entry 
points in the opening section of IHCFCOME 
each time it encounters a READ or WRITE 
statement in the FORTRAN source module. 
These entry points correspond to the opera- 
tions of READ or WRITE, requiring or not 
requiring a format. 
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READ/WRITE Requiring a Format; If the 
operation is a READ requiring a format, the 
opening section passes control to IHCFIOSH 
to initialize the unit number specified in 
the READ statement for reading. (The unit 
number is passed, as an argument, to the 
opening section via the calling sequence.) 
IHCFIOSH: (1) opens the data control block 
(via the OPEN macro-instruction) for the 
specified data set if it was not previously 
opened, and (2) reads a record (via the 
READ macro- instruction) containing data for 
the I/O list items into an I/O buffer that 
was obtained when the data control block 
was opened. IHCFIOSH then returns control 
to the opening section of IHCFCOME. The 
address of the buffer and the length of the 
record read are passed to IHCFCOME by 
IHCFIOSH. These values are saved for the 
I/O list section of IHCFCOME. The opening 
section then passes control to a portion of 
IHCFCOME that scans the FORMAT statement 
specified in the READ statement. (The 
address of the FORMAT statement is passed, 
as an argument, to the opening section via 
the calling sequence.) The first format 
code (either a control or conversion type) 
is then obtained. 



For control type codes (e.g., an H 
format code or a group count) , an I/O list 
item is not required. Control passes to 
the routine associated with the control 
code under consideration to perform the 
indicated operation. Control then returns 
to the scan portion, and the next format 
code is obtained. This process is repeated 
until either the end of the FORMAT state- 
ment or the first conversion code is 
encountered. 



For conversion type codes (e.g., an I 
format code) , an I/O list item is required. 
Upon the first encounter of a conversion 
code in the scan of the FORMAT statement, 
the opening section completes its process- 
ing of a READ requiring a format and 
returns control to the next sequential 
instruction within the load module. 



The action taken by IHCFCOME when the 
various format codes are encountered is 
illustrated in Table 21. 



ing section of IHCFCOME. The address of an 
I/O buffer that was obtained when the data 
control block was opened is saved for the 
I/O list section of IHCFCOME. Subsequent 
opening section processing, starting with 
the scan of the FORMAT statement, is the 
same as that described for a READ statement 
requiring a format. 



READ/WRITE Not Requiring a Format: If the 
operation is a READ or WRITE not requiring 
a format, the opening section processing 
except for the scan of the FORMAT statement 
is the same as that described for a READ or 
WRITE requiring a format. (For a READ or 
WRITE not requiring a format, there is no 
FORMAT statement. ) 



I/O LIST SECTION; The compiler generates a 
calling sequence to one of four entry 
points in the I/O list section of IHCFCOME 
each time it encounters an I/O list item 
associated with the READ or WRITE statement 
under consideration. These entry points 
correspond to a variable or an array list 
item for a READ and WRITE, requiring or not 
requiring a form.at. The I/O list section 
performs the actual transfer of data from: 
(1) an input buffer to the list items if a 
READ statement is being implemented, or (2) 
the list items to an output buffer if a 
WRITE statement is being implemented. In 
the case of a READ or WRITE statement 
requiring a format, the data must be con- 
verted before it is transferred. 



READ/WRITE Requiring a Format: In process- 
ing a list item for a READ requiring a 
format, the I/O list section passes control 
to the conversion routine associated with 
the conversion code for the list item. 
(The appropriate conversion routine is det- 
ermined by the portion of IHCFCOME that 
scans the FORMAT statement associated with 
the READ statement. The selection of the 
conversion routine depends on the conver- 
sion code of the list item being 
processed. ) The conversion routine obtains 
data from an input buffer and converts the 
data to the form dictated by the conversion 
code. The converted data is then moved 
into the main storage address assigned to 
the list item. 



If the operation is a WRITE requiring a 
format, the opening section passes control 
to IHCFIOSH to initialize the unit number 
specified in the WRITE statement for writ- 
ing. (The unit number is passed, as an 
argument, to the opening section via the 
calling sequence.) IHCFIOSH opens the data 
control block (via the OPEN 
macro-instruction) for the specified data 
set if it was not previously opened. 
IHCFIOSH then returns control to the open- 



In general, after a conversion routine 
has processed a list item, the I/O list 
section determines if that routine can be 
applied to the next list item or array 
element (if an array is being processed) . 
The I/O list section examines a field count 
that indicates the number of times a parti- 
cular conversion code is to be applied to 
successive list items or successive ele- 
ments of an array. 
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Table 21. IHCFCOME FORMAT Code Processing 
r T T T — 



FORKAT code 



Description 



Type 



corresponding Action Upon Cede by IHCFCOME 



n( 



nP 



Tn 



nX 



text' or nH 



Fw.d 

Ew.d 

Dw.d 

Iw 

Aw 



beginning of 
statement 



group count 



field count 



scaling factor 



column reset 



skip or blank 



literal data 



conversions 



control 



control 



control 



control 



control 



control 



control 



conversion 



group end 



record end 



end of 
statement 



control 



control 



control 



Save location for possible repetition of the 
format codes; clear counters. 



Save n and location of left parenthesis for 
possible repetition of the format codes in the 
group. 



Save n for repetition of format code which 
follows. 



Save n for use by F, E, and D conversions. 



Reset current position within record to nth 
column or byte. 



Skip n characters of an input record or insert n 
blanks in an output record. 



JMove n characters from an input record to the 
FORMAT statement, or n characters from the 
FORMAT statement to an output record. 



Exit to the load module to return control to 
subroutine FIOLF or FIOAF. Using information 
passed to the I/O list section, the address and 
length of the current list item are obtained 
and passed to the proper conversion routine 
together with the current position in the I/O 
buffer, the scale factor, and the values of w 
and d. Upon return from the conversion routine 
the current field count is tested. If it is 
greater than 1, another exit is made to the load 
module to obtain the address of the next list 
item. 



Test group count. If greater than 1, repeat 
format codes in group; otherwise continue to 
process FORMAT statement from current position. 



Input or output one record 
READ/WRITE ff,acro- instruction. 



via IHCFIOSH and 



If no I/O list items remain to be transmitted, 
return control to the load module to link to the 
closing section; if list items remain, input or 
output one record using IHCFIOSH and READ/WRITE 
macro-instruction. Repeat format codes from 
last left parenthesis. 
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If the conversion code is to be repeated 
and if the previous list item was a vari- 
able, the I/O list section returns control 
to the load module. The load module again 
branches to the I/O list section and pass- 
es, as an argument, the main storage 
address assigned to the next list item. 



The conversion routines that processed 
the previous list item is then given con- 
trol. This procedure is repeated until 
either the field count is exhausted or the 
input data for the READ statement is 
exhausted. 



If the conversion code is to be repeated 
and if an array is being processed, the I/O 
list section computes the miain storage 
address of the next element in the array. 
The conversion routine that processed the 
previous element is then given control. 
This procedure is repeated until either all 
the array elements associated with a speci- 
fic conversion code are processed or the 
input data for the READ statement is 
exhausted. 



If the conversion code is not to be 
repeated, control is passed to the scan 
portion of IHCFCOME to continue the scan of 
the FORMAT statement. If the scan portion 
determines that a group of conversion codes 
is to be repeated, the conversion routines 
corresponding to those codes are applied to 
the next portion of the input data. This 
procedure is repeated until either the 
group count is exhausted or the input data 
for the READ statement is exhausted. 



processes the data for this array element. 
Subsequent I/O list processing for a READ 
requiring a format proceeds at the point 
where the field count is examined. 



If the scan portion encounters the end 
of the FORMAT statement and if all the list 
items are satisfied, control returns to the 
next sequential instruction within the load 
module. This instruction (part of the 
calling sequence to IHCFCOME) branches to 
the closing section. If all the list items 
are not satisfied, control is passed to 
IHCFIOSH to read (via the READ 
macro-instruction) the next input record. 
The conversion codes starting from the last 
left parenthesis are then repeated for the 
remaining list items. 



If the operation is a V3RITE requiring a 
format, the I/O list section processing is 
similar to that for a READ requiring a 
format. The main difference is that the 
conversion routines obtain data from the 
main storage addresses assigned to the list 
items rather than frcmi an input buffer. 
The converted data is then transferred to 
an output buffer. If all the list items 
have not been converted and transferred 
prior to the encounter of the end-of-the 
FORMAT statement, control is passed to 
IHCFIOSH. IHCFIOSH writes (via the WRITE 
macro-instruction) the contents of the cur- 
rent output buffer onto the output data 
set. The conversion codes starting from 
the last left parenthesis are then repeated 
for the remaining list items. 



If a group of conversion codes is not to 
be repeated and if the end of the FORMAT 
statement is not encountered, the next 
format code is obtained. For a control 
type code, control is passed to the asso- 
ciated control routine to perform the indi- 
cated operation. For a conversion type 
code, control is returned to the load 
module if the previous list item was a 
variable. The load module again branches 
to the I/O list section and passes, as an 
argument, the main storage address assigned 
to the next list item. Control is then 
passed to the conversion routine associated 
with the new conversion code. The conver- 
sion routine then processes the data for 
this list item. If the data that was just 
converted was placed into an element of an 
array and if the entire array has not been 
filled, the I/O list section computes the 
main storage address of the next element in 
the array and passes control to the conver- 
sion routine associated with the new con- 
version code. The conversion routine then 



READ/WRITE Not Requiring a Format; In 
processing a list item for a READ not 
requiring a format, the I/O list section 
must know the main storage address assigned 
to the list item, and the size of the list 
item,. Their values are passed, as argu- 
ments, via the calling sequence to the I/O 
list section. The list item may be either 
a variable or an array. In either case, 
the number of bytes specified by the size 
of the list itemi is moved from the input 
buffer to the main storage address assigned 
to the list item. The I/O list section 
then returns control to the load module. 
The load module again branches to the I/O 
list section and passes, as argum.ents, the 
main storage address assigned to the next 
list item, and the size of the list item. 
The I/O list section moves the number of 
bytes specified by the size of the list 
item into the main storage address assigned 
to this list item. This procedure is 
repeated either until all the list items 
are satisfied or until the input data is 
exhausted. Control is then returned to the 
load module. 
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If the operation is a WRITE not requir- 
ing a format, the I/O list section process- 
ing is siitiilar to that described for a READ 
not requiring a format. The irain differ- 
ence is that the data is obtained froiri the 
main storage addresses assigned to the list 
items and is then moved to an output 
buffer. 



CLOSING SECTION: The compiler generates a 
calling sequence to one of two entry points 
in the closing section of IHCFCOME each 
time it encounters the end of a READ or 
WRITE statement in the FORTRAN source 
module. The entry points correspond to the 
operations of READ and WRITE, requiring or 
not requiring a format. 



Examples of IHCFCOME READ/WRITE Statement 
Processing 



The following examples illustrate the 
opening section, I/O list section, and 
closing section processing performed by 
IHCFCCME for the operations of READ and 
WRITE, requiring or not requiring a format. 



READ REQUIRING A FORMAT; The processing 

perform.ed by IHCFCOME for the following 

READ statement and FORMAT statement is 
illustrated in Table 22. 



READ (1,2) A,B,C 
2 FORMAT (3F12.6) 



READ /WRITE Requiring a Format; If the 
operation is a READ requiring a format, the 
closing section simply returns control to 
the load module to continue load module 
execution. If the operation is a WRITE 
requiring a format, the closing section 
branches to IHCFIOSH. IHCFIOSH writes (via 
the WRITE macro-instruction) the contents 
of the current I/O buffer (the final 
record) onto the output data set. IHCFIOSH 
then returns control to the closing sec- 
tion. The closing section, in turn, 
returns control to the load module to 
continue load module execution. 



READ /WRITE Not Requiring a Format; If the 
operation is a READ not requiring a format, 
the closing section branches to IHCFIOSH. 
IHCFIOSH reads (via the READ 
macro-instruction) successive records until 
the end of the logical record being read is 
encountered. (A FORTRAN logical record 
consists of all the records necessary to 
contain the I/O list items for a WRITE 
statement not requiring a format. ) When 
IHCFIOSH recognizes the end-of-logical- 
record indicator, control is returned to 
the closing section. The closing section, 
in turn, returns control to the load module 
to continue load module execution. 



If the operation is a WRITE not requir- 
ing a format, the closing section inserts: 
(1) the record count (i.e., the number of 
records in the logical record) into the 
control word of the I/O buffer to be 
written, and (2) an end-of -logical-record 
indicator into the last record of the I/O 
buffer being written. The closing section 
then branches to IHCFIOSH. IHCFIOSH writes 
(via the WRITE macro-instruction) the con- 
tents of this I/O buffer onto the output 
data set. IHCFIOSH then returns control to 
the closing section. The closing section, 
in turn, returns control to the load module 
to continue load module exectuion. 



Table 22. IHCICOME Processing for a READ 
Requiring a F03nrat 



Opening 
Section 



I/O List 
Section 



Closing 
Section 



Receives control from, load 
module and branches to 
IHCFIOSH to initialize data 
set for reading. 

Passes control to scan por- 
tion of IHCFCOME. 



Returns 
module. 



control to load 



Receives control from load 
module, converts input data 
for A, and moves converted 
data to A. 



2. Returns 
module. 



control 



to load 



3. Receives control from load 

module, converts input data 

for B, and moves converted 
data to B. 



U. 



Returns control 
module. 



to 



load 



5. Receives control from load 
module, converts input data 
for C, and moves converted 
data to C. 



6. 



Returns 
module. 



control 



to load 



1. Receives control from load 
module and closes out I/O 
operation. 

2. Returns control to load 
module to continue load 
module execution. 
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WRITE REQUIRING A FORMAT; The processing READ NOT REQUIRING A FORMAT; The process- 

performed by IHCFCOKE for the following ing performed by IHCFCOME for the following 

WRITE statement and FORMAT statement is READ statement is illustrated in Table 24. 
illustrated in Table 23, 



WRITE (3,2) (D (I), 1=1, 3) 
2 FORMAT (3F12.6) 



READ (5) X,Y,Z 



Table 2 3. IHCFCOME Processing for a WRITE 
Requiring a Format 



Opening 
Section 



I/O List 
Section 



Closing 
Section 



Receives control from load 
module and branches to 
IHCFIOSH to initialize data 
set for writing. 



Passes control to scan 
tion of IHCFCOME. 



Returns 
module. 



control 



to 



por- 
load 



Receives control from load 
module, converts D(l), and 
moves D(l) to output buffer. 



Returns 
module. 



control to load 



Receives control from load 
module, converts D(2), and 
moves D(2) to output buffer. 



Returns 
module. 



control to load 



Receives control from load 
module, converts D(3), and 
moves D(3) to output buffer. 



Returns 
module. 



control 



to load 



Receives control from load 
module and branches to 
IHCFIOSH to write contents 
of output buffer. 

Returns control to load 
module to continue load 
module execution. 



Table 24. IHCFCOME Processing for a READ 
Not Requiring a Format 



Opening 
Section 



I/O List 
Section 



Closing 
Section 



Receives control from load 
module and branches to 
IHCFIOSH to initialize data 
set for reading. 



Returns control 
module. 



to 



load 



Receives control from load 
module and moves input data 
to X. 



Returns 
module. 



control 



to load 



Receives control from load 
module and moves input data 
to Y. 



Returns 
module. 



control 



to load 



Receives control from load 
module and moves input data 
to Z. 



Returns 
module. 



control 



to load 



Receives control from load 
module and branches to 
IHCFIOSH to read successive 
records until the end-of- 
logical-record indicator is 
encountered. 

Returns control to load 
module to continue load 
module execution. 



114 



WRITE NOT REQUIRING A FORMAT: The process- 
ing performed by IHCFCOME for the following 
WRITE statement is illustrated in Table 25. 

WP-ITE (6) (W(J),J=1,10) 



Table 25. IHCFCOME Processing for a WRITE 
Not Requiring a Format 



Opening 
Section 



I/O List 
Section 



1. Receives control from load 
module and branches to 
IHCFIOSH to initialize data 
for writing. 



2 . Returns control 
module. 



to 



load 



Receives control from load 
module and moves W(l) to 
output buffer. 



2. 



3. 



Returns 
module. 



control 



to load 



Receives control from load 
module and moves W(2) to 
output buffer. 



Returns 
module. 



control 



to load 



5. Receives control from load 
module and moves W(10) to 
output buffer. 



6. Returns 
module. 



control to load 



Closing |1. Receives control from load 
Section | module and branches to 

IHCFIOSH to write contents 

of output buffer. 

2. Returns control to load 
module to continue load 
module execution. 



I/O Device Manipulation Routines 



The I/O device manipulation routines of 
IHCFCOME implement the BACKSPACE, REWIND, 
and END FILE source statements. These 
routines receive control from within the 
load module via calling sequences that are 
generated by the compiler when these state- 
ments are encountered. 



The implementation of REWIND and END 
FILE statements is straightforward. The 
I/O device manipulation routines submit the 
appropriate control request to IHCFIOSH, 
the I/O interface module. After the 
request is executed, control is returned to 
the calling routine within the load module. 



The BACKSPACE Statement is processed in 
a similar fashion. However, before control 
is returned to the calling routine, it is 
determined whether the record backspaced 
over is an element of a data set that does 
not require a format. If the record is an 
element of such a data set, that record is 
read into an I/O buffer and the record 
count is obtained from its control word. 
Backspace control requests, equal in number 
to the record count, are then issued and 
control is returned to the calling routine. 
If the record is not an element of such a 
data set, control is returned directly to 
the calling routine. 



-j Write-to-Operator Routines 



The write-to-operator routines of 
IHCFCOME implem.ent the STOP and PAUSE 
source statements. These routines receive 
control from within the load module via 
calling sequences generated by the compiler 
upon recognition of the STOP and PAUSE 
statements. 
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STOP; A write-to-operator (WTO) macro- 
instruction is issued to display the 
message associated with the STOP statement 
on the console. Load module execution is 
then terminated by passing control to the 
program termination routine of IHCFCOME. 

PAUSE ; A write-to-operator-with-reply 
(WTOR) macro- instruction is issued to dis- 
play the message associated with the PAUSE 
statement on the console and to enable the 
operator's reply to be transmitted. A WAIT 
macro-instruction is then issued to deter- 
mine when the operator's reply has been 
transmitted. After the reply has been 
received, control is returned to the call- 
ing routine within the load module- 



Utility Routines 



The utility routines of IHCFCOME perform 
the following functions: 

• Process object-time error messages. 

• Process arithmetic-type program inter- 
ruptions . 

• Terminate load module execution. 



PROCESSING OF ERROR MESSAGES; Error mes- 
sage processing routine (IBFERR) receives 
control from various FORTRAN library sub- 
programs when they detect object- time 
errors. 

Error message processing consists of 
initializing the data set upon which the 
message is to be written and also of 
writing the message. If the type of error 
requires load module termination, control 
is passed to the termination routine of 
IHCFCOME; if not, control is returned to 
the calling routine. 



PROCESSING OF ARITHMETIC 



INTERRUPTIONS: 



The arithmetic- interrupt routine (IBFINT) 
of IHCFCOME initially receives control from 
within the load module via a compiler 
generated calling sequence. The call is 
placed at the start of the executable 
coding of the load module so that the 
interrupt routine can set up the program 
interrupt mask. Subsequent entries into 
the interrupt routine are made through 
arithmetic-type interruptions. 



The interrupt routine sets up the pro- 
gram interrupt mask by means of a SPIE 
macrc-instruction. This instruction speci- 
fies the type of arithmetic interruptions 
that are to cause control to be passed to 
the interrupt routine, and the location 
within the routine to which control is to 
be passed if the specified interruptions 
occur. After the mask has been set, con- 
trol is returned to the calling routine 
within the load module. 



In processing an arithmetic interrup- 
tion, the first step taken by the interrupt 
routine is to determine its type. If 
exponential overflow or underflow has 
occurred, the appropriate indicators, which 
are referenced by OVERFL (a library 
subprogram) , are set. If any type of 
divide check caused the interruption, the 
indicator referenced by DVCHK (also a 
library subprogrami) is set. 

Regardless of the type of interruption 
that caused control to be given to the 
interrupt routine, the old program PSW is 
written out for diagnostic purposes. 

After the interruption has been pro- 
cessed, control is returned to the inter- 
rupted routine at the point of interrup- 
tion. 



PROGRAM TERMINATION: The load module ter- 
mination routine (IBEXIT) of IHCFCOME 
receives control from various library sub- 
programs (e.g., DUMP and EXIT) and from 
other IHCFCOME routines (e.g., the routine 
that processes the STOP statement) . 

This routine terminates execution of the 
load module by the following means: 

• Calling IHCFIOSH to check (via the 
CHECK macro- instruction) outstanding 
write requests. 

• Issuing a SPIE macro-instruction with 
no parameters indicating that the 
FORTRAN object module no longer desires 
to give special treatment to program 
interruptions and does not want maska- 
ble interruptions to occur. 



• Returning to 
supervisor. 



the operating system 
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Chart 13. IHCFCOME Overall Logic Diagram and Utility Routines 



IHCFCOME IS 
ENTERED VIA 
CALLING SE- 
QUENCES GEN- 
ERATED AT 
COMPILER TIME. 



**** A3** ******* 

* * CALLING » 
♦SEQUENCE WITHIN* 

* LOAD MODULE * 



SEE TABLE 26 FOR A BRIEF 
DESCRIPTION OF THE FUNCTION 
OF EACH IHCFCOME ROUTINE/ 
SUBROUTINE. 



« * 

* DETERMINE » 

♦ REQUEST » 
» TYPE » 
» » 



I 
V 



• REQUEST TYPE 



* CHART* MAJOR PROCESSING » SUBROUTINES CALLED 

* ID. « ROUTINES * 



* READ/WRITE * 1 4A2 * FROWF . FWRWF , F I OLF . # FCV I I t FCVFO t FCVE I . FC VD I , * 
« REQUIRING A FORMAT » ♦ FIOAF.FENDF * FC VEO . FC VDO t FCV I . FC VF I . FCVAI t FCV A0» 

* » » ♦ » 

* * * * » 

* READ/WRITE NOT « 1 4F2 ♦ FRDNF . FWRNF . F lOLN t » NONE * 

* REQUIRING A FORMAT * * FIOAN.FENDN * » 
it * * * * 
«««»#■»»»*«*«•»«♦*«**»«**»»♦«»«*♦♦♦»«**«**»»#»»♦»»»*»»■»»***»*»«♦♦»»«*»»♦**»«»**»*»*♦»««* 



* DEVICE 

* MANIPULATION 



• 15B3 * FBKSP.FRWND.FEOFM * NONE 



*»**»»*»♦»*»♦«»*«»♦»»*«»»**«♦»♦»»»*»»♦♦*♦»»♦♦»♦♦♦*»«»»»»♦**»♦»»*»»♦»»**«*»**♦«♦»*»«*»*« 
■» * * * * 

* WRITE TO * 15G3 ♦ FSTOP.FPAUS * NONE » 

* OPERATOR « * « » 

* ♦ ♦ * » 



f FSTOP, * 
f IHCIBERR. OR * 
f IBFERR * 
»♦#»♦»♦»«#»♦«*♦ 



UTILITY ROUTINES 



*«»*G2 ********* 
f FORTRAN < 
f LIB. * 
f SUBPRS. * 

*************** 



*»«»G4********* 
^ LOAD ^ 



»»#»*H1 ********** 

* IBEXIT * 
«-♦—«-*—♦—♦—♦—»—» 

* CLOSE ALL * 

* DCBS * 

* (TERM EXEC) * 
»♦****•****»***»» 



t JOB * 



#»««*H2 ********** 

* IBFERR * 
#—«—»-*—»-«—»—«—* 

* PROCESS * 

* OBJECT TIME ♦ 

* ERRORS * 
»*♦**#»♦♦•♦»«»♦»* 



»*** J 2 ********* 
t * 

* IBEXIT * 

t * 

»*♦«*«#«***««** 



«'K'«««H4 ********** 

* IBFINT * 
«-*-•-»-*-#-♦-»—« 

* PROCESS * 

* ARITHMETIC * 

* INTERRUPTIONS * 



t LOAD ^ 
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Chart 14. Implementation of READ/WRITE Source Statements 



IHCFCOME 

FRDWF/FWRWF 
««*«*A2«********* 
•PERFORM OPENING* 
•OPERATIONS FOR * 
>* READ/WRITE » 
» REQUIRING » 
» A FORMAT » 



LOAD MODULE 



» PERFORM I/O * 
•LIST OPERATIONS* 

• ON LIST ITEM « 

* • 
«»»»•»*»*••»••»•■« 



•••*«B4 •••«••*••• 

♦GET LIST ITEM. • 
-» CALL I/O LIST »<- 
» SECTION OF • 
• IHCFCOME » 

••••«••«•*••••••« 



THIS CALL IS 
GENERATED 3Y 
COMPILER WHEN 
I/O LIST ITEM 
IS ENCOUNTERED 



LAST 
LIST 
ITEM 



» CLOSE OUT 

• I/O 

• OPERATION 



CALL CLOSING 

SECTION OF 

IHCFCOME 



THIS CALL IS 
GENERATED BY 
COMPILER WHEN 
ALL I/O LIST 
ITEMS PROCESSED 



* CONTINUE WITH » 

* LOAD MODULE • 
► EXECUTION • 

» * 

*•**»*♦*»•*»»»»•» 



IHCFCOME 

FRDNF/FWRNF 

•PERFORM OPENING* 
•OPERATIONS FOR « 
>»READ/WRITE NOT • 

• REQUIRING « 

• A FORMAT * 



LOAD MODULE 



t*GH* 



»«»««*« 



• PERFORM I/O • 
•LIST OPERATIONS»<- 

• ON LIST ITEM » 

• * 



»GET LIST ITEM. ♦ 
» CALL I/O LIST •<- 
» SECTION OF • 
» IHCFCOME * 
•••«***»»«••••••« 



THIS CALL IS 
GENERATED BY 
COMPILER WHEN 
I/O LIST ITEM 
IS ENCOUNTERED 



LAST 
LIST 
ITEM 



• CLOSE OUT • 

• I/O •< 

• OPERATION • 



« « 

• CALL CLOSING * 
-• SECTION OF • 

• IBCOM » 

• IHCFCOME * 
»»»»•••»•»»*•»••» 



THIS CALL IS 
GENERATED BY 
COMPILER WHEN 
ALL I/O LIST 
ITEMS PROCESSED 



•••••K4 •••••••••• 

* CONTINUE WITH • 

* LOAD MODULE • 

* EXECUTION • 

* ♦ 
««•••«•••«••••••• 
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Chart 15. Device Manipulation and Write-to-Operatcr Routines 



BACKSPACE 



••«««D2»»****»»*» 

» IMPLEMENT * 

» BACKSPACE * 

« SOURCE » 

» STATEMENT » 



«»««»B3********** 
« « 

•DETERMINE TYPE • 
* OF DEVICE * 
» MANIPULATION » 
« * 



REWIND 

I 

FRWND 

V 

««««»D3******** 

* IMPLEMENT 

♦ REWIND 

* SOURCE 

♦ STATEMENT 



ENDFILE 

I 

FEDFM 

V 

♦ 

* IMPLEMENT 

• ENDFILE 

• SOURCE 

* STATEMENT 



*««««G3*******««* 
« « 

•DETERMINE TYPE • 

• OF WRITE TO • 

• OPERATOR • 

• • 
»••»»»»••••»•»••• 



STOP 

I 

FSTOP 

V 

*****JZ** ******** 

• • 

• IMPLEMENT • 

• STOP • 
» SOURCE • 

• STATEMENT • 
•*•••••••••••*••• 



••••K2********* 
t * 

» IBEXIT * 

» « 

••••••••••••••• 



FPAUS 

V 

•••••J4««»^«^^^^^ 

« « 

• IMPLEMENT • 

• PAUSE • 

• SOURCE • 

• STATEMENT • 
•••••••••••*••••• 



Appendix G: Object-Time Library Subprograms 119 



Table 26. IHCFCOME Routine/Subroutine Directory 



r T- 

I Routine/Subroutine | 

l- 



Function 



FBKSP 
FCVAI 
FCVAO 
FCVDI 
FCVDO 
FCVEI 
FCVEO 
FCVFI 
FCVFO 
FCVII 
FCVIO 
FENBF 
FENDN 
FEOFM 
FIOAF 

FIOAN 

FIOLF 

FIOLN 

FPAUS 
FRDNF 
FRDWF 
FRWND 
FSTOP 
FWRNF 
FWRWF 
IBEX IT 

IBFERR 
IBFINT 



IntFlements the BACKSPACE source statement. 

Reads alFharreric data. 

Writes alphameric data. 

Reads double-precision data with an external exponent. 

Writes double-precision data with an external exponent. 

Reads real data with an external exponent. 

Writes real data with an external exponent. 

Reads real data without an external exponent. 

Writes real data without an external exponent. 

Reads integer data. 

Writes integer data. 

Closing section for a READ or WRITE requiring a format. 

Closing section for a READ or WRITE not requiring a format. 

Implements the ENDFILE source statement. 

I/O list section for list array of a READ or WRITE requiring a 
form.at. 

I/O list section for list array of a READ or WRITE not requiring a 
format. 

I/O list section for the list variable of a READ or WRITE requiring 
a format. 

I/O list section for the list variable of a READ or WRITE not 
requiring a format. 

Implements the PAUSE source statement. 

Opening section of a READ not requiring a format. 

Opening section of a READ requiring a format. 

Implements the REWIND source statement. 

Implements the STOP source statement. 

Opening section for a WRITE not requiring a format. 

Opening section for a WRITE requiring a format. 

Closes the data control blocks for all FORTRAN data sets that are 
still open and terminates the execution. 

Processes object-time errors. 

Processes arithm.etic-type program interruptions. 
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IHCFIOSH 



IHCFIOSH, the object-time FORTRAN 
input/output data irianageitient interface, 
receives input/output requests from 
IHCFCOME and submits them to the appropri- 
ate BSAM (basic sequential access method) 
routines and/or open and close routines for 
execution. Chart 16 illustrates the over- 
all logic and the relationship among the 
routines of IHCFIOSH. Table 27, the IHCFI- 
OSH routine directory, lists the routines 
and their functions. 



Table and Blocks Used 



IHCFIOSH uses the following table and 
blocks during its processing of 
input/output requests: (1) unit assignment 
table, and (2) unit blocks. The unit 
assignment table is used as an index to the 
unit blocks. The unit blocks are used to 
indicate I/O activity for each unit number 
(i.e., data set reference number) and to 
indicate the type of operation requested. 
In addition, the unit blocks contain skele- 
tons of the data event control blocks 
(DECB) and the data control blocks (DCB) 
needed for I/O operations. 



j Reserved 



■T T T 

I ♦ n X 4 + 4|4 bytes I 



** Pointer to 
first unit 
block 



*♦ Pointer to 
last unit 
block 



Default values for first unit 
block 



Default values for last unit 
block 



-+- 



Data set reference | 
number of error j Reserved 
output device | 
i. 



H 



-+ 



4 bytes 



4 bytes 



4 bytes 



8 bytes 



■+- 



8 bytes 



*n is the maximum number of units that 
can be referred to by the FORTRAN load 
module. The size of the unit table is 
equal to (8 + n x 12) bytes. 
♦♦The pointers to the various unit blocks 
are inserted into the unit assignment 
table when the unit blocks are con- 
structed by IHCFIOSH. 



UNIT ASSIGNMENT TABLE; The unit assignment 
table (IHCUATBL) resides on the FORTRAN 
system library (SYSl.FORTLIB) . Its size 
depends on the maximum number of units that 
can be referred to during the execution of 
any FORTRAN load module. This number is 
specified during the system generation pro- 
cess via the FORTLIB macro- instruction. 
The unit assignment table is included (by 
the linkage editor) in the FORTRAN load 
module as a result of an external reference 
to it within IHCFIOSH. 



The unit assignment table has the fol- 
lowing format: 



The default value section of the unit 
assignment table contains standard values 
that IHCFIOSH inserts into the appropriate 
fields (e.g., BUFNO) of the DCB skeleton 
section of the unit block if the user 
either: 



Causes the load module to be 
via a cataloged procedure, or 



executed 



Fails, in stating his own procedure for 
execution, to include in the DCB param- 
eter of his DD statements those subpar- 
ameters (e.g., BUFNO) he is permitted 
to include (refer to the publication 
IBM Svstem/360 Operating System: 
FORTRAN IV (E) Programmer's Guide ) . 
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Note; Control is returned to IHCFIOSH 
during data control block opening so that 
it can determine if the user has included 
the subparairieters in the DCB parameter of 
his DD statements. IHCFIOSH examines the 
DCB skeleton fields corresponding to user- 
permitted subparameters, and upon 
encountering a null field (indicating that 
the user has not specified the 
subparameter) , inserts the standard value 
(i.e., the default value) for the subparam- 
eter into the DCB skeleton. (If the user 
has included these subparameters in his DD 
statement, the control program routine per- 
forming data control block opening inserts 
the subparameter values, before giving con- 
trol to IHCFIOSH, into the DCB skeleton 
fields reserved for those values.) 



IHCFCOME, can be set to one of the 
following: 



FO - Input data set requiring a format. 

FF - Output data set requiring a for- 
mat. 

00 - Input data set not requiring a 
format. 

OF - Output data set not requiring a 
format. 

• EBYTE . This field contains bits that 
are set. and examined by IHCFIOSH during 
its processing. The bits and their 
meanings are as follows: 

Bit on 



UNIT BLOCKS; The first reference to each 
unit number (data set reference number) by 
an input/output operation within the 
FORTRAN load module causes IHCFIOSH to 
construct a unit block for each unit num- 
ber. The main storage for the unit blocks 
is obtained by IHCFIOSH via the GETMAIN 
macro-instruction. The addresses of the 
unit blocks are placed in the unit assign- 
ment table as the unit blocks are con- 
structed. All subsequent references to the 
unit numbers are then made through the unit 
assignment block. Each unit block has the 
following format : 



- exit to IHCFCOME on I/O error 

1 - I/O error occurred 

2 - current buffer indicator 

3 - not used 

4 - end-of -current buffer indicator 

5 - blocked data set indicator 

6 - variable record format switch 

7 - not used 

CBYTE . This field also contains bits 
that are set and examined by IHCFIOSH. 
The bits and their meanings are as 
follows : 

Bit on 



r T T T 1 

I ABYTE I BBYTE j CBYTE j LIVECNT 
J. X X 



Address of Buffer 1 



Address of Buffer 2 



Current buffer pointer 



Record offset 



DECB skeleton section 



^Housekeeping 
Section 



DCB skeleton section 



Each unit block is divided into three 
sections: a housekeeping section, a DECB 
skeleton section, and a DCB skeleton sec- 
tion. 

Housekeeping Section: The housekeeping 
section is maintained by IHCFIOSH. The 
information contained in it is used to 
indicate data set type, to keep track of 
I/O buffer locations, and to keep track of 
addresses internal to the I/O buffers to 
enable the processing of blocked records. 
The fields of this section are: 

• ABYTE. This field, containing the data 
set type passed to IHCFIOSH by 



- data control block opened 

1 - data control block not TCLOSEd 

2 - data control block not previously 

opened 

3 - buffer pool attached 

4 - data set not previously rewound 

5 - data set not previously backspaced 

6 - concatenation occurring — reissue 

READ 

7 - not used 

• LIVECNT . This field indicates whether 
any I/O operation performed for this 
data set is unchecked. (A value of 1 
indicates that a previous read or write 
has not been checked; a value of 
indicates that all previous read and 
write operations for this data set have 
been checked. ) 

• Address of Buffer 1 and Address of 
Buffer 2 . These fields contain poin- 
ters to the two I/O buffers obtained 
during the opening of the data control 
block for this data set. 



• Current Buffer Pointer. 



This field 



contains a pointer to the I/O buffer 
currently being used. 

Record Offset . This field contains a 
pointer to the current logical record 
within the current buffer. 
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DECB Skeleton Section; The DECB (data Operation 
event control block) skeleton section is a 
block of main storage within the unit 
block. It is of the same form as the DECB 
constructed by the control program for an L 
form of an S-type READ or WRITE macro- 
instruction (refer to the publication IBM 
System/360 Operating System; Control 



Program Services ) . The various fields of 
the DECB skeleton are filled in by 
IHCFIOSH; the completed block is referred 
to when IHCFIOSH issues a read/write 
request to BSAM. The read/write field is 
filled in at open time. For each I/O 
operation, IHCFIOSH supplies IHCFCOME with; 
(1) an indication of the type of operation 
(read or write) , and (2) the length of and 
a pointer to the I/O buffer to be used for 
the operation. 

DCB Skeleton Section; The DCB (data con- 
trol block) skeleton section is a block of 
main storage within the unit block. It is 
of the same form as the DCB constructed by 
the control program for a DCB macro- 
instruction under BSAM (refer to the 
publication IBM System/360 Operating Sys- 
tem; Control Program Services ) . The var- 
ious fields of the DCB skeleton are filled 
in by the control program when the DCB for 
the data set is opened (refer to the 
publication IBM System/360 Operating Sys- 
tem; Concepts and Facilities ) . (Standard 
default values may also be inserted in the 
DCB skeleton by IHCFIOSH. Refer to "Unit 
Assignment Table" for a discussion of when 
default values are inserted into the DCB 
skeleton. ) 



Buffering 



All input/output operations are double 
buffered. (The double buffering scheme can 
be overriden by the user if he specifies in 
a DD statement; BUFN0=1.) This implies 
that during data control block opening, two 
buffers will be obtained. The addresses of 
these buffers are given alternately to 
IHCFCOME as pointers to: 

• Buffers to be filled (in the case of 
output) . 

• Information that has been read in and 
is to be processed (in the case of 
input) . 



Communication With the Control Program 



In requesting services of the control 
program, IHCFIOSH uses L and E forms of 
S-type macro- instructions (refer to the 
publication IBM System/360 Operating Sys- 
tem; Control Program Services ). 



The processing of IHCFIOSH is divided 
into five sections: initialization, read, 
write, device manipulation, and closing. 
When called by IHCFCOME, a section of 
IHCFIOSH performs its function and then 
returns control to IHCFCOME. 

INITIALIZATION; The initialization action 
taken by IHCFIOSH depends upon the nature 
of the previous I/O operation requested for 
the data set. The previous operation pos- 
sibilities are: 

• No previous pperation. 

• Previous operation read or write. 

• Previous operation backspace. 

• Previous operation write end-of-data 
set. 

• Previous operation rewind. 

No Previous Operation; If no previous 
operation has been performed on the unit 
specified in the I/O request, the initiali- 
zation section generates a unit block for 
the unit number. The data set to be 
created is then opened (if the current 
operation is not rewind or backspace) via 
the OPEN macro-instruction. The addresses 
of the I/O buffers, which are obtained 
during the opening process and placed into 
the DCB skeleton, are placed into the 
appropriate fields of the housekeeping sec- 
tion of the unit block. The DECB skeleton 
is then set to reflect the nature of the 
operation (read or write) , the format of 
the records to be read or written, and the 
address of the I/O buffer to be used in the 
operation. 

If the requested operation is that of 
write, a pointer to the buffer position, at 
which IHCFCOME is to place the record to be 
written, and the block size or logical 
record length (to accommodate blocked logi- 
cal records) are placed into registers, and 
control is returned to IHCFCOME. 

If the requested operation is that of 
read, a record is read, via a READ macro- 
instruction, into the I/O buffer, and the 
operation is checked for completion via the 
CHECK macro-instruction. A pointer to the 
location of the record within the buffer, 
along with the number of bytes read or the 
logical record length, are placed into 
registers, and control is returned to 
IHCFCOME. 

Previous Operation Read or Write; If the 
previous operation performed on the unit 
specified in the present I/O request was 
either a read or write, the initialization 
section determines the nature of the pre- 
sent I/O request. If it is a write, a 
pointer to the buffer position, at which 
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IHCFCOME is to place the record to be 
written, and the block size or logical 
record length are placed into registers, 
and control is returned to IHCFCOME. 

If the operation to be performed is 
read, a pointer to the buffer location of 
the record to be processed, along with the 
number of bytes read or logical record 
length, are placed into registers, and 
control is returned to IHCFCOME. 

Previous Operation Backspace; If the pre- 
vious operation performed on the unit spec- 
ified in the present I/O reguest was a 
backspace, the initialization section det- 
ermines the type of the present operation 
(read or write) and modifies the DECB 
skeleton, if necessary, to reflect the 
operation type- (If the operation type is 
the same as that of the operation that 
preceded the backspace request, the DECB 
skeleton need not be modified. ) Subsequent 
processing steps are the same as those 
described for "No Previous Operation," 
starting at the point after the DECB skele- 
ton is set to reflect operation type. 

Previous Operation Write End-of-Data Set; 
If the previous operation performed on the 
unit specified in the present I/O request 
was that of write end-of-data set, a new 
data set using the same unit number is to 
be created. In this case, the initializa- 
tion section closes the data set. Then, in 
order to establish a correspondence between 
the new data set and the DD statement 
describing that data set, IHCFIOSH incre- 
ments the unit sequence number of the 
ddname. (The ddname is placed into the 
appropriate field of the DCB skeleton prior 
to the opening of the initial data set 
associated with the unit number. ) During 
the opening of the data set, the ddname 
will be used to merge with the appropriate 
DD statement. The data set is then opened. 
Subsequent processing steps are the same as 
those described for "No Previous 
Operation," starting at the point after the 
data set is opened. 

Previous Operation Rewind; If the previous 
operation performed on the unit specified 
in the present I/O request was rewind, the 
ddname is initialized (set to FTxxFOOl) in 
order to establish a correspondence between 
the initial data set associated with the 
unit number and the DD statement describing 
that data set. The data set is then 
opened. Subsequent processing steps are 
the same as those described for "No Pre- 
vious Operation, " starting at the point 
after the data set is opened. 

READ; The read section o£ IHCFIOSH per- 
forms two functions; (1) reads physical 
records into the buffers obtained during 
data set opening, and (2) makes the con- 



tents of these buffers available to 
IHCFCCME for processing. 

If the records being processed are 
blocked, the read section does not read a 
physical record each time it is given 
control. IHCFIOSH only reads a physical 
record when all of the logical records of 
the blocked record under consideration have 
been processed by IHCFCOME. However, if 
the records being processed are either 
unblocked or of U-format, the read section 
of IHCFIOSH issues a READ macro-instruction 
each time it receives control. 

The reading of records by this section 
is overlapped. That is, while the contents 
of one buffer are being processed, a physi- 
cal record is being read into the other 
buffer. When the contents of one buffer 
have been processed, the read into the 
other buffer is checked for completion. 
Upon completion of the read operation, 
processing of that buffer's contents is 
initiated. In addition, a read into the 
second buffer is initiated. 

Each time the read section is given 
control it makes the next record available 
to IHCFCOME for processing. (In the case 
of blocked records, the record presented to 
IHCFCOME is logical.) The read section of 
IHCFIOSH places: (1) a pointer to the 
record's location in the current I/O buf- 
fer, and (2) the number of bytes read or 
logical record length into registers, and 
then returns control to IHCFCOME. 



WRITE; The write section of IHCFIOSH per- 
forms two functions; (1) writes physical 
records, and (2) provides IHCFCOME with 
buffer space in which to place the records 
to be written. 

If the records being written are 
blocked, the write section does not write a 
physical record each time it is given 
control. IHCFIOSH only writes a physical 
record when all of the logical records that 
comprise the blocked record under consider- 
ation have been placed into the I/O buffer 
by IHCFCOME. However, if the records being 
written are either unblocked or of U- 
format, the write section of IHCFIOSH 
issues a WRITE macro-instruction each time 
it receives control. 

The writing of records by this section 
is overlapped. That is, while IHCFCOME is 
filling one buffer, the contents of the 
other buffer are being written. When an 
entire buffer has been filled, the write 
from the other buffer is checked for com- 
pletion. Upon completion of the write 
operation, IHCFCOME starts placing records 
into that buffer. In addition, a write 
from the second buffer is initiated. 
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Each time the write section is given 
control, it provides IHCFCOME with buffer 
space in which to place the record to be 
written. IHCFIOSH places: (1) a pointer to 
the location within the current buffer at 
which IHCFCOME is to place the record, and 
(2) the block size or logical record length 
into registers, and then returns control to 
IHCFCOME . 



Backspace; IHCFIOSH processes the back- 
space request by issuing a BSP (physical 
backspace) iracro-instruction. It then 
places the data set type, which indicates 
the format requirement, into a register and 
returns control to IHCFCOME. (IHCFCOME 
needs the data set type to determine its 
subsequent processing.) 



Error Processing; If an end-of-data set or 
an I/O error is encountered during reading 
or writing, the control program returns 
control to the location within IHCFIOSH 
that was specified during data set initial- 
ization. In the case cf an I/O error, 
IHCFIOSH sets a switch to indicate that the 
error has occurred. Control is then 
returned to the control program. The con- 
trol program completes its processing and 
returns control to IHCFIOSH, which interro- 
gates the switch, finds it to be set, and 
passes control to the I/O error routine of 
IHCFCOME. 



Rewind; IHCFIOSH processes the rewind 
request by issuing a CLOSE macro- 
instruction, using the REREAD option. This 
option has the same effect as a rewind. 
Control is then returned to IHCFCOME. 



Write End-Of-Data Set: IHCFIOSH processes 
this request by issuing a CLOSE macro- 
instruction. Type = T. It then frees the 
I/O buffers by issuing a FREEPOOL macro- 
instruction, and returns control to 
IHCFCCME. 



In the case cf an end-of-data set, 
IHCFIOSH simply passes control to the end- 
of-data set routine of IHCFCOME. 

Chart 17 illustrates the execution-time 
I/O recovery procedure for any I/O errors 
detected by the I/O supervisor. 



DEVICE 



MANIPULATION! 



The 



device 



manipulation section of IHCFIOSH processes 
backspace, rewind, and write end-of-data 
set requests. 



CLOSING; The closing section of IHCFIOSH 
examines the entries in the unit assignment 
table to determine which data control 
blocks are open. In addition, this section 
ensures that all write operations for a 
data set are completed before the data 
control block for that data set is closed. 
This is done by issuing a CHECK macro- 
instruction for all double-buffered output 
data sets. Control is then returned to 
IHCFCOME. 
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Chart 16. IHCFIOSH Overall Logic Diagram 



• IHCFCOME « 



SEE TABLE 27 FOR A BRIEF 
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« 
«*«««***««•«««««« 



n 



••*•« 

• 17 • 

• F2^ 



••*«*F4********** 

* issue • 

* BACKSPACE 

* INDICATE DATA *■ 

* SET TYPE 

***•»*•***«»*•»•• 



n 



»»»*• 

*17 * 

* B2» 



» CURRENT 

OP. DEVICE 
». MANIP 



"••■"n 



••••«G4*****^^*** 

* • 

* ISSUE CLOSE. * 
>• TYPE=T WITH • 

» LEAVE OPTION • 

* • 
•*««**«*****«**«* 



READ 

OR 
WRITE 



•***«H4********** 
« » 

• FREE 1/0 • 
» BUFFERS FOR •- 

• THIS DATA SET » 



****** J I *«*•******< 

* READ • 

A 
• BLOCK • 

************* 

**»* 

* » < 

» Kl *-> 

» * 
*••• 

V 
*****K1 •********• 

• PASS CURRENT • 
•RECORD POINTER * 

• AND LOGICAL •- 

• RECORD LENGTH * 

* TO IHCFCOME • 
•*•***»*•••****** 
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Chart 17. Executicn-tiire I/O Recovery Procedure 



THE I/O SUPERVISOR 
IS ENTERED VIA BSAM 
ROUTINE WHEN IHCFIOSH 
ISSUES A MACRO-INST. 



*•*♦» 
*17 * 
• B2* 
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.*. 
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» 



n 
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««««• CI** *'*'*****'« 
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««««•«««*** 
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* MODULE * 
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► I/O < 

ERROR IN 
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*» •*- 

*« .* 



t * 

t CI * 

t * 

• •** 



CONTINUES 

NORMAL 

PROCESSING 



1HHHi*£,2** ******** 

* 

*<- 



ISSUE 
MESSAGE 
IHC218I 



*«««***«*»««««*«« 



«*♦» 

# 17 * 

• F2 •-> 



* «'»««P2«*«««««*«« 

« PASS * 

* ABORT CODE ♦ 

* TO SCHEDULER * 
» » 



«««'*G2 ******** *- 

t -n 

* SCHEDULER * 

t * 

**«******««**** 

ISSUES ABEND 
MESSAGE AND 
THEN CONTINUES 
NORMAL PRO- 
CESSING 



*****C 3* ********* 

* BSAM RETRY 

* APPROPRIATE 
>* NUMBER OF 

* TIMES 
« 
**«*«**««*«**«*** 



*****03 •*«****««* 

* IHCFCOME » 
» DETERMINES * 

« IF AN INVALID «<- 

* BUFFER HAS » 

* BEEN READ * 
««*♦****««»»«♦»»« 





• * *. 






**♦♦ 




.* I/O 

. ERROR BEEN 
*. CORRECTED. 
*. .* 


* 


YES 

* 


* 
->* CI 

* 
*««* 






*. .* 

* NO 









*****04 ********** 
» » 

* RETURN * 
-* ABORT CODE * 

* TO IHCFCOME » 

* * 
«**«**«*««**««*«* 



YES .♦ HAS ». 

*. BUFFER BEEN .* 

*.READ YET .* 



F3 «. 

.** REWIND **. NO 

*.0R BACKSPACE .* 

*. BEEN .* 
*ISSUED.» 
«. .* 
* YES 



**»**G3********** 

* * 

* VOID * 

* ABORT CODE * 

* IN IHCFCOME * 
» * 
««•««***••*«*«*«» 



**«*H3** ******* 

* FORTRAN * 

* LOAD ■» 

* MODULE * 
*•«*****«****«* 

CONTINUES 

NORMAL 

PROCESSING 
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Table 27. IHCFIOSH Routine/Subroutine Directory 



j Routine/Subrout ine j 



Function 



i FCLCS 

I 

I FCNTL 

I 

JFINIT 

I 

IFREAD 

I 

I FRITE 



CHECKS double-buffered output data sets, 
Services device manipulation requests. 
Initializes unit and data set. 
Services read requests. 
Services write requests. 



IHCIBERR 



IHCIBERR, a meitifcer of the FORTRAN system 
library (SYSl.FORTLIB) , processes object- 
time source statement errors if the LOAD 
option is specified. IHCIBERR is entered 
(via a calling sequence generated by Phase 
20) when an internal sequence number (ISN) 
cannot be executed because of a source 
statement error. 

The ISN of the invalid source statement 
is obtained (from information in the 
calling sequence) and is then converted to 



decimal form. IHCIBERR then links to 
IHCFCCME to implement the writing of the 
following error message: 



IHC230I - SOURCE ERROR AT ISN 

XXXX - EXECUTION FAILED 

After the error message is written on 
the user-designated error output data set, 
IHCIBERR passes control to the IBEXIT rou- 
tine of IHCFCOWE to terminate execution. 



Chart 18 illustrates the 

of IHCIBERR. 



overall logic 



128 



Chart 18. IHCIBERR Overall Logic Diagram 



««*'»A3'*'i)' ******* 

• CALLING * 
•SEQUENCE WITHIN* 

* LOAD MODULE • 
*«*«**«**•**«•* 



«*«««B3««*««**««« 

# # 
•OBTAIN INTERNAL* 
•SEQUENCE NUMBER* 

* (ISN) • 
« » 



» * 

• CONVERT ISN * 

• TO DECIMAL * 

• FORMAT * 
« * 



* BRANCH TO • 

* IHCFCOME TO * 

* HANDLE THE * 

* WRITING OF * 

* ERROR MESSAGE * 
«»*•♦♦**»»»»«»»♦» 



»***E3«# ♦«♦»»*« 
» IBEXIT RTN * 

* OF * 

* IHCFCOME * 
♦#*#«»««»♦«♦♦#» 



IHCIBERR IS 
ENTERED VIA 
CALLING SE- 
QUENCES GEN- 
ERATED BY 
PHASE 20 AT 
COMPILE TIME. 
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APPENDIX H: LINKAGES TO THE INTERFACE MODULE AND THE PERFORMANCE MODULE 



LINKAGE TO THE INTERFACE MODULE 



Fcr SPACE coitiFilations, the components 
of the compiler link to the interface 
module (lEJFAGAO) for: 



FIORTN is the name of a branch instruc- 
tion in the communication area that 
tranches to the I/O routine (SIORTN) of 
the interface module. 



• Input/output requests. 

• End-of-phase/interlude requests. 

In addition, for both SPACE and PRFRM 
compilations, the compiler components link 
to the interface module for patch requests 
and for print control operations. 



Input/Output Request Linkage 



The linkage to the interface module for 
an I/O request is: 



L LNKREG,IOPARS 
BAL 15, FIORTN 



End-Of-Phase/Interlude Request Linkage 



The linkage to the interface module for 
an end-of-phase/interlude condition is: 



L 
BC 

where 



LNKREG,NXPARS 
15,FNEXT 



• LNKREG is general register 0. 

• NXPARS is the following 4-byte word: 



where 

• INKREG is general register 0. 

• lOPARS is the following U-byte word: 



r T 1 

I Operation I Address of the I/O buffer | 

I Field I For this operation j 
L X J 



1 byte 



3 bytes 



The operation field bits and their 
meanings are illustrated in Table 28. 



Table 

r 

I Bit ( 

f 

I Bit : 

I- — 

I Bit : 

F 

I Bit ; 

^ — 

I Bit I 

f 

I Bits 



28. Operation Field Bit Meanings 



j Check operation 



JRead operation 



i Write operation 



i Flush operation 



JNot used 
1 

5-7 1 00 - SYSIN is to be used | 

1 001 - SYSPUNCH is to be used] 

1 010 - SYSLIN is to be used | 

I Oil - SYSUTl is to be used j 

I 10 - SYSUT2 is to be used | 

I 101 - SYSPRINT is to be usedj 

I 110 - Not used I 

I 111 - Indicates that thej 

I address of the DECB toj 

I be used is supplied inj 

j PARREG,REG1. j 

X J 



r T 1 

I Entry point identifier |Data set | 

I of next phase/interlude | disposition] 

I I field I 

L X J 



3 bytes 



1 byte 



The data set disposition field bits and 
their meanings are illustrated in Table 
29. 



Table 29. Data Set Disposition 
Field Bit Meanings 



|Bits 0- 


— X 

-l|Not used 








|Bit 2 


1 TCLOSE 


the 


DCB 


for 


SYSIN 1 


|Bit 3 


1 TCLOSE 
X _«. 


the 


DCB 


for 


SYSPUNCH 1 


|Eit a 


— t — 

1 TCLOSE 
_ x_ _ 


the 


DCB 


for 


SYSLIN 1 


|Bit 5 


1 TCLOSE 
_ i 


the 


DCB 


for 


SYSUTl 1 


|Eit 6 


1 TCLOSE 
_ j._ 


the 


DCB 


for 


SYSUT2 1 


|Bit 7 


1 TCLOSE 
— X 


the 


DCB 


for 


SYSPRINT 1 



• FNEXT is the name of a branch instruc- 
tion in the communication area that 
branches to the end-of-phase routine 
(SNEXT) of the interface module. 



130 



Patch Requests 



Input/Output Request Linkage 



The linkage to the interface module for 
a patch request is: 



LR 

BAL 
DC 

where 



WRKREG, BASEA 
15, FPATCH 
C'XX' 



• WRKREG is general register 14. 

• BASEA contains the relative starting 
address of the component to be tempo- 
rarily modified. 

• FPATCH is the name of a branch instruc-r 
tion in the communication area that 
tranches to the patch routine (PATCH) 
in the interface module. 

• 'XX' is the fifth and sixth characters 
in the name of the component to be 
temporarily modified- (That is, 'XX' 
indicates the component to be 
modified. ) 



Print Control Operations 



The linkage to the interface module 
a print control operation is: 



for 



BAL 

DC 

DC 

Where 



15, FPRTCTRL 
B'xxxxxxxx' 

AL3 (lOERR) 



• FPRTCTRL is the name of a branch 
instruction in the communication area 
that branches to the print control 
operations routine (PRTCTRL) of the 
interface module. 

• 'xxxxxxx' is the carriage control char- 
acter. 

• AL3 (lOERR) is an address constant 
containing the address of the I/O error 
routine of the component requesting the 
print control operation. 



LINKAGE TO THE PERFORMANCE MODULE 



For PRFRM compilations, the components 
of the compiler link to the performance 
module (lEJFAPAO) for: 



The linkage to the performance module 
for an I/O request is basically the same as 
that described for the linkage to the 
interface module for an I/O request; The 
only difference is that the address in the 
branch and link (BAL) instruction is, in 
effect, replaced by the address of the I/O 
routine (PIORTN) of the performance module. 
The PIORTN routine, in turn, links to the 
I/O routine (SIORTN) of the interface 
module when it is either ready to read or 
write, or to check the result of a previous 
read or write. 



End-Cf-Phase Request Linkage 



The linkage to the performance module 
for an end-of-phase request is basically 
the same as that described for the linkage 
to the interface module for an 
end-of -phase/interlude request. The only 
difference is that the address in the 
branch on condition (BC) instruction is, in 
effect, replaced by the address of the 
end-cf-phase routine (PNEXT) of the perfor- 
mance module. 

Note: Internally, the compiler components 
use symbolic names when transferring con- 
trol to a subsequent component. The sym- 
names 



The 
bolic names and the actual names of the 
components are illustrated in Table 30. 



Table 30. Symbolic and Actual 
Compiler Components 

r T 

I Symbolic Name] Actual Name 

I" 



Names of 



Input/output requests. 
End-of-phase requests. 



+ 

lEJFAAAO* I Phase 1-Initial entry 

lEJFAABO (Phase 1-Subsequent entries 

lEJFAGAO* I Interface module 

lEJFAKAO I Print buffer module 

lEJFAPAG* I Performance module 

lEJFAXAG* I Source symbol module 

lEJFEAAO I Phase 7 

lEJFGAAO I Phase lOD 

lEJFJAAO I Phase ICE 

lEJFJGAO I Interlude ICE 

lEJFLAAO I Phase 12 

lEJFNAAO I Phase 14 

lEJFNGAO I Interlude 14 

lEJFPAAO I Phase 15 

lEJFPGAO (Interlude 15 

lEJFRAAO (Phase 20 

lEJFVAAO (Phase 25 

lEJFVCAO* (Object listing module 

lEJFXAAO (Phase 30 

^ X ^ 

♦Never transferred to by another compiler 
component. 

L J 
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APPENDIX I: DIAGNOSTIC MESSAGES AND STATEMENT/EXPRESSION PROCESSING 



This appendix contains the names of the 
phases and the routines within the phases 
that: (1) generate diagnostic messages, and 
(2) process the various FORTRAN statements 
and expressions. 



DIAGNOSTIC MESSAGES 



Two types of diagnostic messages are 
generated by the FORTRAN compiler - infor- 
mative messages and error/warning messages. 
The messages produced by the compiler are 
explained in the IBM System/3 60 Operating 
System: FORTRAN IV (E) Programmer's Guide . 



Informative Messages 



Four informative messages are generated 
by the compiler to inform the programmer or 
operator of the status of the compilation. 
The messages and the phases and subroutines 
in which they are generated are illustrated 
in Table 31. 



Table 31. Informative Messages 

r T T 1 

I Message/number | Phase | Subroutine | 
|. + 1 ^ 

JIEJOOII I 7 JMESSGOUT j 
j. __+ + ^ 

I LEVEL: rmthyr | | j 

I OS/360 FORTRAN IV (E | | I 

I LEVEL SUBSET) COMPILATION I j j 

I DATE: yy.ddd I 7 JEJECTPRT | 
^ + + ^ 

I END OF COMPILATION j 30 | EOJOB | 
^ + + ^ 

I SIZE OF COMMON and SIZE | 30 | ENDCRD j 
I OF OBJECT MODULE | | j 

L X J. J 



Error/Warning Messages 



Each error/warning message produced by 
the compiler is identified by an associated 
number. Table 32 relates a message number 
with the phases and subroutines in which 
the corresponding miessage is generated. 



Table 32. Error/Warning Messages 



Message 
Number 



IEJ002I 



IEJ003I 



IEJ004I 



IEJ005I 



IEJ006I 



■+• 



IEJ007I 



IEJ008I 



IEJ029I 



IEJ030I 



+-- 



IEJ031I 



IEJ032I 



IEJ033I 



IEJ03UI 



IEJ035I 



IEJ036I 



IEJ037I 



IEJ038I 



IEJ039I 



IEJ041I 



IEJ0U3I 



IEJ043I 



lEJOUUI 



IEJ045I 



IEJ046I 



Phase 



-+ 



lOD 



lOD 



12 



-I- 



10D,10E 



-+- 



10D,10E 



4 



lOD 



lOD 



lOE 



10D,10E 



lOD 



10D,10E 



10D,10E 



lOD^lOE 



12 



10D,10E 
10D,10E 
10D,10E 



Subroutine or Routine 



MESSGOUT 



MESSGOUT 



MESSGOUT 



MESSGOUT 



MESSGOUT 



MESSGOUT 



MESSGOUT 



DIMSUB 



COMMON, EQUIVP 



EQUIVP 



LITCON 



GETWD 



FUNCT, SUBRUT 



■+• 



FUNCT, SUBRUT 



ARITH 



CLASS, ARITH, ASF, IF 



INTGER/REAL/DOUBLE , 
EXTERN, COMMON, EQUIV, 
DIM 



SYMTIU 



ASF, EXTERN, DIM 



4- 



INTGER/REAL/DOUBLE, GO 



ALOC 



LITCON 
LITCON 
LITCON 



(Continued) 
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Table 32. Error/Warning Messages 



Message 
Number 



IEJ047I 



IEJ048I 



IEJ0U9I 



IEJ050I 



IEJ051I 



IEJ051I 



IEJ052I 



IEJ053I 



IEJ054I 



IEJ055I 



IEJ056I 



IEJ057I 



IEJ058I 



IEJ060I 



IEJ061I 



h 
j] 

h 

h 

I-: 

1-- 
j] 

1-- 

IIEJ076I 
h 

IIEJ077I 



4 



4 



4 



4 



4 



IEJ063I 



lEJoem 



lEJoem 



IEJ065I 



IEJ066I 



4 



IEJ068I 



IEJ069I 



4 



IEJ070I 



IEJ071I 



IEJ072I 



IEJ073I 



IEJ07m 



IEJ075I 



Phase 



10D,10E 



lOD 
lOD 



lOD 
lOD 



14 
lOD 



lOD 
lOE 



lOD 
lOE 



lOE 
lOE 



lOD 
10D,10E 



lOE 
10D,10E, 



30 
10D,10E 



lOE 
10D,10E 



lOE 
lOD 



lOE 
lOE 



10D,10E 
lOD 



14 
14 
10D,10E 



+ + 



Subroutine or Routine 



CLASS, DIM 



DIMSUB 



DIM, DIM90 



EQUIV 



EQUIV, DIM 



FCOMACHK 



SUBS, EQUIV 



SUBS 



ASF 



FUNC, SUBRUT 



GO 



READ/WRITE 



READ/WRITE 



EQUIV 



EOSR 



EQUIV 



LABTLU, SYWTLU, 



TWNFIV 



CLASS, LABLO, PAKNUM 



DO 



LITCCN 



ASF 



FUNCT, SUBRUT 



CALL 



ARITH 



PUTX 



COMMON 



FORMAT, CKLM 



i I- 









■H 



-H 



-H 



-•I 



^ 

^ 

READ/READWR, FORMAT 

ASF, READ/WRITE, EOSR, 
DO, SUBS, EQUIV, FUNCT, 
SUBRUT, DIMSUB, DIM, 
SKPBLK 



(Continued) 



^ f 



^ I- 



i f 



Message 
Nuirber 



IEJ077I 



IEJ078I 



IEJ079I 



IEJ079I 



4- 



IEJ080I 



IEJ080I 



IEJ081I 



4 



IEJ081I 



4- 



IEJ082I 



IEJ082I 



IEJ083I 



IEJ083I 



4 



IEJ084I 



4- 



IEJ084I 



IEJ084I 



IEJ085I 



IEJ085I 



IEJ086I 



IEJ087I 



4 



IEJ088I 



4 



IEJ089I 

I- 

IEJ090I 
y 

IEJ091I 



IEJ092I 



IEJ094I 



IEJ095I 



IEJ096I 



IEJ097I 
IEJ098I 



Phase 



14 



14 



lOE 



14 



lOE 



14 



10D,10E 



4- 



14 



4- 



10D,10E 



4- 



14 



4- 



10D,10E 



14 



4- 



10D,10E 



4- 



14 
15 



4- 



12 
14 



14 
14 



14 
14 
14 



14 
14 
14 



14 
14 



4- 



14 
14 



Subroutine or Routine 



READ/RE ADWR, DO, FILLEG, 
SKPBLK 



CKENDO 



GO 



READ/READWR, DO 



GO 



READ/RE7UDWR 



ARITH, EQUIV 



READ/READWR, FMDCON, 
FMECON, FMFCON, FMTINT, 
FMACON, FORMAT 



LITCON 



NOFBCT, INTCON 



CSORN, INTCON 



INTCON 



WARN/ERI^T 



ERROR, WARN 



ERROR, WARN 



DPALOC, SALO 



PRESCN 



BLANKZ 



FMDCON, FMECON, FMFCON, 
FMTINT, FMACON, FSUBST 



LPAREN 



UNITCK 
FQUOTE 






FMINUS, FPLUS 



FCOMMA 



FMDCON, FMECON, FMFCON, 
FMTINT, FMACON 



READ/READWR 
READ/READWR 



INSAV 
FQUOTE 



(Continued) 
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Table 32. Error /Warning Messages 



Message 
Numter 



IEJ099I 



lEJlOOI 



IEJ123I 



IEJ12tH 



-+ 



IEJ125I 



IEJ126I 



-+ 



IEJ127I 



IEJ127I 



4- 



IEJ128I 



IEJ129I 



■+- 



IEJ130I 



IEJ131I 



IEJ132I 



IEJ133I 



IEJ135I 



IEJ136I 



IEJ137I 



IEJ139I 



IEJ140I 



IEJ141I 



IEJ142I 



IEJ143I 



IEJ1U4I 



IEJ142I 



IEJ145I 



IEJ143I 



Phase 



14 



14 



15 



15 



15 



15 



12 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



15 



12 



20 



12 



|IEJ147I|12 

L X 



Subroutine or Routine 



FQUOTE 



DO, READ/READWR 



MOPUP 



COMMA 



DO, BEGIO 



CKARG 



COMALO, ALOC 



PRESCN, UMINUS, UPLUS , 
FOSCAN 



LFTPRN 



TYPE 



COMMA 



INLINl 



LABEL 



EQUALS 



COMMA, TYPE 



LAB 



COMMA, TYPE, RTPRN, 
FOSCAN 



COMMA 



FOSCAN 



COMMA 



DO,, BEGIO 



EQUALS 



ARTHIF 



EXTCOM 



^ ^ 



^ f 






PHEND 



COMALO, RENTER/ENTER, 
SWROOT 



EQUIVP 



-H 



-H 



■H 



-H 



(Continued) 



IEJ159I 

I- 

IEJ160I 
j. 

IEJ160I 



^ f 



^ f 



Message 
Number 



IEJ148I 



IEJ149I 



■+ 



IEJ150I 



+-- 



+- 



IEJ161I 



IEJ162I 



-+ 



IEJ163I 



4 



IEJ164I 



4 



IEJ164I 



4 



IEJ166I 



IEJ166I 



IEJ167I 



IEJ168I 



IEJ169I 



IEJ169I 



IEJ171I 



IEJ171I 



IEJ172I 



IEJ173I 



IEJ174I 



Phase 



12 



12 



12 



15 



14 
15 



12 



10D,10E 



4- 



10D,10E 



lOE 



4- 



14 



10D,10E 



14 



14 



10D,10E 



lOD 



15 



10D,10E 



14 



lOE 



lOE 



15 



Subroutine or Routine 



RENTER/ENTER, SWROOT 



COMALO 



ALOC 



MOPUP 



INTCCN 
COMMA 






EXTCOM 



CLASS 



LITCON 



CONT/RETURN 



FORMAT 

EOSR, DO, FUNCT,SUBRUT 



READ/READWR 



LINECK 



4- 



EOSR 



DIMSUB 



COMMA 



EOSR 



4- 



RPAREN 



ASF 



ARITH 



EQUALS, LFTPRN, INARG, 
TYPE 



f +— 

|IEJ175I|14 
L J 



LABEL 



STATEMENT/EXPRESSION PROCESSING 



Table 33 indicates the routine/ subrou- 
tine responsible for the processing of the 
stateinent/expressicn under consideration,, 
and the phase in which it appears. 
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Table 33. Stateirent/Expression Processing 



T T 

Phase 
14 



T T 

Phase 
20 



■T 1 

I Phase 
I 30 
-+ 



Statement/ 
Expression 



Phase 
lOD/lOE 



Phase 
12 



Phase 
15 



Phase 
25 



Arithmetic Expres- 
sion or statement 



ARITH 



(E) 



PASSON 



FOSCAN 



ARITH 



PXGEN 



FUNCTION Call 



ARITH 



(E) 



LDCN 



PASSON 



FOSCAN 



CALSEQ 



FUNGEN/ 
EREXIT 



-+- 



4- 



■+- 



Subscripted 
Variable 



SUBS 



(E) 



SSCK 



PASSON 



FOSCAN, 
MVSBXX/ 
NjVSBRX 



SUBVP 



4- 



4- 



SAOP, AOP 



SF definition and 
expansion 

Statement Number 
Definitions 

SF Call 
BACKSPACE 



ASF (E) 

CLASS (E) 

ARITH (E) 

BKSP/REWIND 

END/ENDFIL (E) 



LDCN 



ASF 



FOSCAN 






ASSNBL 
LDCN 



LABEL 
PASSON 






LABEL 
FOSCAN 






BSPREF 



D02 



ARITH 

LABEL 
CALSEQ 

ESDRLD 



ASFDEF, I 
ASFEXP I 



LABEL 
ASFUSE 






I I 



REWRT 



CALL 



CALL 



(E) 



LDCN 



PASSON 



FOSCAN 



CALSEQ, 
IFCALL 



FUNGEN/ 
EREXIT 



4- 



COMWON 



COMMON 



(D) 



COMAL 



+- 



Computed GOTO 



GO 



(E) 



CGOTO 



CGOTO 



COGOTO 



CGOTO 



CONTINUE 



CONT 
RETURN 



(E) 



SKIP 



SKIP 



DIMENSION 



DIM 



(D) 



DO 

DOUBLE PRECISION 



END 



DO (E) 

INTGER/ (D) 
READ/DOUBLE 

BKSP/REWIND/ 
END/ENDFIL (E) 



+ 



DO 
+ 



DO 



DO 
+— 



DOl, 
ENDDO 



DPALOC 



END 



IMOPUP 



+ + 

PHEND 



END 



I I 

I I 

I 

I ENDCRD 



ENDFILE 



BKSP/REWIND/ 
END/ENDFIL (E) 



BSPREF 



DO 2 



ESDRLD 



RDWRT 



EQUIVALENCE 



EQUIV 



(D) 



EQUIVP 



EXTERNAL 



EXTERN 



(D) 



LDCN 



FORMAT 



FORMAT (D,E) 



FORMAT 



FUNCT/SUBRUT 



FUNCTION 



(D) 



LDCN 



SUBFUN 



FHDR 



SUBRUT 



GO 



GO 



(E) 



ENDOCK 



GOTO 



TRGEN 



IF 

In-line Functions 



IF 
ARITH 



(E) 



ENDOCK 



FOSCAN 



IFCALL 



ARITHI 






FUNGEN/ 



(E) 



LDCN 



PASSON 



FOSCAN 



CKCOD 



EREXIT 



I 
I 
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Table 33. Stateirent/Expression Processing (Continued) 



T 1 

Phase I Phase 

25 I 30 
+ 



Statement/ 
Expression 



Phase 
lOD/lOE 



I Phase 
I 12 



Phase 
14 



Phase 
15 



Phase 
20 



INTEGER 



INTGER/ I 
REAL/DOUBLE (D)|SALO 



■+- 



PAUSE 



STOP/PAUSE (E) 



PAUSE 



D02 



STOP/PAUSE I 



4- 



READ 



READ/WRITE (E) j 
+. 



READ 



D02 



READ, 
LIST 



RDWRT/ 
lOLIST 



REAL 



INTGER/ 1 
REAL/DOUBLE (D)|SALO 



RETURN 



CONT 
RETURN 



(E) 



RETURN 



SKIP 



RETURN 



REWIND 



BKSP/REWIND/ 
END/ENDFTL (E) 



BSPREF 



■+- 



D02 
D02 



ESDRLD 



RDWRT 



STOP 



STOP/PAUSE (E) 



STOP 



STOP/PAUSE I 



SUBROUTINE 



FUNCT/SUBRUT 



(D) JLDCN 
+ 



SUBFUN 



D02 



SUBRUT 



WRITE 



READ/WRITE (E) j 



READWR 



DO 2 



LIST 



RDWRT/ 
lOLIST 
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APPENDIX J: MAIN STORAGE ALLOCATION 



The amount of main storage allocated to 
the compiler depends on whether a SPACE or 
a PRFRM compilation is being performed. 



FOR SPACE COMPILATIONS 



contiguous only fcr each control section. 
Figures 47 through 53 reflect the main 
storage allocation associated with each 
successive phase/interlude as it performs 
its functions, when only a minimal amount 
of storage (15K bytes, where K = 1024) is 
available for compilation. 



Fcr SPACE compilations, the compiler 
requires main storage for: 

• Load modules (phases, interludes, print 
buffer, and interface). 

• Resident tables (dictionary, overflow 
table, SEGMAL). 

• Internal text buffers. 

• BSAM I/O routines. 

The main storage required by each 
phase/interlude of the compiler need be 



When the main storage allocated to the 
compiler (specified in the SIZE option) is 
greater than 15K bytes, the internal text 
buffers may be interspersed within the area 
occupied by the dictionary and the overflow 
table. In this case, there need be no 
relationship between the various areas 
required by the compiler. 



These figures are schematics showing the 
main storage allocated; proportional sizes 
within the diagrams do not necessarily 
indicate proportional amounts of main stor- 
age. 



32Kr- 
h 



K- 



17K 



INTERFACE MODULE 
PRINT BUFFER MODULE 
BSAM ROUTINES 
PHASE 7 



AVAILABLE MAIN 
STORAGE 



PHASE 1 



^- 



RESIDENT 

CONTROL 

PROGRAM 



OL- 



32K r 

I INTERFACE MODULE 

j. 

I PRINT BUFFER MODULE 

j. 

I BSAM ROUTINES 

|. 

I PHASE 7 

y 

I AVAILABLE MAIN 

I STORAGE 

|. 

I PHASE 1 
I 

I 

|. 

1 OVERFLOW TABLE,, SEGMAL 
|. 

I 4 INTERNAL TEXT BUFFERS 
17K I- 



RESIDENT 

CONTROL 

PROGRAM 



Figure 47. End of Phase 1 
(initial entry) 



OL. 



Figure 48. End of Phase 1 
(subsequent entries) 



1 32Kr T 

I INTERFACE MODULE 
^ |. ^ 

I PRINT BUFFER MODULE 
^ |. ^ 

I BSAM ROUTINES 
^ ^ ^ 

I PHASE 7 
^ |. \ 

I AVAILABLE MAIN 
I STORAGE 
^ |. ^ 

i TRANSIENT WORK AREA 

|. \ 

I DICTIONARY 
^ |. \ 

I OVERFLOW TABLE, SEGMAL, 
^ J. ^ 

I 4 INTERNAL TEXT BUFFERS 
^ 17K|. ^ 



RESIDENT 

CONTROL 

PROGRAM 



L J 

Figure 49. End of Phase 7 
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32K 



32K 



17K 



INTERFACE MODULE 
PRINT BUFFER MODULE 
BSAM ROUTINES 
TRANSIENT WORK AREA 



PHASE lOD, 
PHASE lOE, 
INTERLUDE lOE 



DICTIONARY 

OVERFLOW TABLE, SEGNAL 

4 INTERNAL TEXT BUFFERS 



RESIDENT 

CONTROL 

PROGRAM 



L J 

Figure 50- Phases lOD and lOE, 
and Interlude lOE 



17K 



INTERFACE MODULE 
PRINT BUFFER MODULE 
BSAM ROUTINES 



TRANSIENT WORK AREA 



PHASE 12, PHASE 14 
INTERLUDE 14 



DICTIONARY 

OVERFLOW TABLE, SEGMAL 

4 INTERNAL TEXT BUFFERS 



RESIDENT 

CONTROL 

PROGRAM 



L 

Figure 51. 



Phases 12 and 14, 
and Interlude 14 



32K r ^ 

INTERFACE MODULE 
j. _ ^ 

PRINT BUFFER MODULE 



f- 



17K I- 



BSAM ROUTINES 



TRANSIENT WORK AREA 



PHASE 15, 
INTERLUDE 15 



OVERFLOW TABLE, SEGMAL 
4 INTERNAL TEXT BUFFERS 



RESIDENT 

CONTROL 

PROGRAM 



L. 



—J 



Figure 52. Phase 15 and Inter- 
lude 15 



32K r- 
h 
I" 



I— 



17K h 



INTERFACE MODULE 
PRINT BUFFER MODULE 
BSAM ROUTINES 



L. 



TRANSIENT WORK AREA 



PHASE 20, 
PHASE 25, 
PHASE 30 



OVERFLOW TABLE, SEGMAL 
4 INTERNAL TEXT BUFFERS 



RESIDENT 

CONTROL 

PROGRAM 



Figure 53. Phases 20, 25, and 
30 
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FOR PRFRM COMPILATIONS 



For PRFRM ccitip nations, 
requires main storage for: 



3 6K 



the compiler 



• load modules (phases, interface, print 
buffer, and perf orirance) . 

• Resident tables (dictionary, overflow 
table, and SEGMAL) . 

• Internal text buffers. 

• BSAM I/O routines. 

• Block/deblock buffers if blocking is 
specif ied- 



The main storage required by any given 
phase of the compiler need be contiguous 
only for each control section within that 
phase. Figure 54 reflects the main storage 
allocation for the duration of a PRFRM 
compilation, when only a minimal amount of 
main storage (19K bytes, where K=1024) is 
available for compilation. 

When the main storage allocated to the 
compiler (specified in the SIZE option) is 
greater than 19K bytes, the internal text 
buffers may be interspersed within the area 
occupied by the dictionary and the overflow 
table. In this case, there need be no 
relationship among the various areas 
required by the compiler. 

Figure 54 is a schematic showing the 
main storage allocated; proportional sizes 
within the diagram do not necessarily indi- 
cate proportional amounts of main storage. 



17K 



INTERFACE MODULE 



PRINT BUFFER MODULE 



PERFORMANCE MODULE 



BSAM ROUTINES 



PHASE 1, PHASE 7, 
PHASE lOD, PHASE lOE, 
PHASE 12, PHASE 14, 
PHASE 15, PHASE 20, 
PHASE 25, OR PHASE 30 



TRANSIENT WORK AREA 



DICTIONARY, OVERFLOW 
TABLE, AND SSGMAL 



4 INTERNAL TEXT BUFFERS 



BLOCK/DEBLOCK BUFFERS (IF 
BLOCKING IS SPECIFIED) 



RESIDENT 

CONTROL 

PROGRAM 



0«" 



Figure 54. Main Storage Allocation for a 
PRFRM Compilation 
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APPENDIX K: COMMUNICATION AREA (FCOMM) 



The communication area is a central 
gathering area used to communicate neces- 
sary information between the various phases 
of the compiler. The communication area, 
as a portion of the interface module, is 
resident throughout the compilation. 

Various bits in the communication area 
are examined by the phases of the compiler. 
The status of these bits determines the 
following: 

• Options specified by the source pro- 
grammer. 

• Specific action to be taken by a phase. 

If the bit in question is a 0, the 
option has not been specified, or the 
action is not to be taken; if the bit is a 



1, the option has been specified, or the 
action is to be taken. 



Several entries in the communication 
area are equated to the addresses of other 
entries in the communication area used 
during earlier phases. Equating the 
entries keeps the size of the communication 
area to a miniirum. 

The communication area is assembled as a 
DSECT (dummy section) within each phase. 
This allows the phases to symbolically 
address the entries in the communication 
area without the communication area actual- 
ly residing in each phase. 

Table 3U indicates the formiat and organ- 
ization of the communication area. 



Table 34. Communication Area 
r T T 



j Entry 

1 


Size 


1 


Meaning 


r 





1 




1 FCOWM 


DS XLU 


JBITO 


SOURCE * 






|BIT1 


DECK * 






|BIT2 


MAP * 






|BIT3 


ADJUST * 






|BIT4 


PRFRM * 






|BITS 


5-6 00 NOLOAD* 
11 LOAD ♦ 






|BIT7 


BCD VERSION OF SCODE REQUESTED * 






|BIT8 


NAME PARAMETER EXISTED 






|BITS 


9-10 00 MAIN PROGRAM 

10 SUBROUTINE SUBPROGRAM 

11 FUNCTION SUBPROGRAM 






IBITII 


FUNCTION NAME DEFINED 






IBIT12 


OBJECT MODULE CALLS AN EXTERNAL S/P 






JBITIS 


COMMON AND EQUIVALENCE TEXT ALL IN STORAGE 






IBITIU 


LAST COMPILE OF THIS JOB STEP-PH lOE/1 






|BIT15 


ERROR IN ANY COMPILE OF A BATCH RUN 






|BIT16 


WARNING MESSAGES 






IBIT17 


ERROR MESSAGES 






|BIT18 


MESSAGE IN CURRENT STATEMENT-PH lOD/lOE 






IBIT19 


WARNING IN ANY COMPILE OF A BATCH RUN 






|BIT20 


ABORT COMPILATION 






|BIT21 


ALL INTERNAL TEXT IN STORAGE 






IBIT22 


ONE INTERNAL TEXT RECORD-PH lOD/lOE 
OBJ. MOD. USES A SPILL BASE REG-PH 12/25 
BRANCH LIST TEXT NOT ALL IN STORAGE-PH 25/30 






|BIT23 


OBJECT LISTING 






IBIT2U 


OTHER THAN FIRST COMPILE 






IBIT25 


COMPILATION RESTARTED 






|BIT26 


INVALID OPTION (S) IN 'FARM* FIELD 






IBIT27 


•NAME' OPTION TOO LONG- TRUNCATED 






IBITS28-31 


SPARE 



L J. X J 

(Continued) 
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Table 34. Coiratiunication Area (Continued) 
r T T 



1 1 

1 Entry | 


Size 


Meaning 


L i 




. 


r T 


T 


JFSIZE IDS 


F 


1 BYTES OF STORAGE REQUESTED FOR COMPILER* 


1 FDATE 1 DS 


CL5 


YEAR (2 DIGITS), DAY (3 DIGITS) 


|FLINELNG|DS 


X 


OBJECT PROGRAM PRINT LINE LENGTH ♦ 


IFINDEX IDS 


H 


DISPLACEMENT FROM FCOMM TO FDECBIN 


|PMAXLINE|DS 


H 


MAXIMUM NUMBER OF LINES ON LISTING PAGE 


JFCURLINEJDS 


H 


CURRENT LINE ON LISTING PAGE 


IFIEJF IDS 


cm 


FORTRAN E INTERNAL COMPONENT CODE - lEJF 


1 FPHASE 1 DS 


cm 


ENTRY POINT OF PHASE IN CCNTRCL 


IFDMFRDCDIDS 


X 


HI-ORDER BYTE OF REREAD ITEM IN CLOSE LIST 


1 FDMLSTCD | DS 


X 


HI-ORDER BYTE OF LAST ITEM IN CLOSE LIST 


|FPRTCTRL|DS 


2H 


BRANCH TO PRINT CONTROL ROUTINE 


|THE CONTENTS 




OF THE 


-._«. 

FOR SPACE JFOR PRFRM 


|NEXT U FIELDS DEPENDS 


COMPILATIONS - {COMPILATIONS - 


jON WHETHER A 


SPACE OR A 


1 


IPRFRM COMPILATION IS 


1 


1 BEING PERFORMED. 


1 


L «.* — ^— .» 


J 


L ± 


f — — — ^-•— — 





T 


jFIORTN |DS 


2H 


B SIORTN |MVI FPRFRMDL,X«a' 


1 FNEXT 1 DS 


2H 


B SNEXT |L 13,FPRFRMDL 


1 IDS 


H 


(NOT USED) IBR 13 


JFPRFRMDLJDS 

L J. 


A 1 ZERO jADDR. OF lEJFAPAO 
J_ X 


|FAGAOEND|DS 


A 


ADDRESS OF (END OF INTERFACE MODULE + ONE) 


|FSAVADDR|DS 


A 


ADDRESS OF CONTROL PROGRAM SAVE AREA 


1 FTXTBFSZ 1 DS 


H 


SIZE OF INTERNAL TEXT BUFFERS 


jFTXTPTR IDS 


H 


ADDR. OF NEXT INT. TEXT RCD.-PH. lOD/E, 12/14 


IFTXTBFAIJDS 


A 


ADDRESS OF INTERNAL TEXT BUFFER 1 - SYSUTl 


1 FTXTBFA2 | DS 


A 


ADDRESS OF INTERNAL TEXT BUFFER 2 - SYSUTl 


|FTXTBFB1|DS 


A 


ADDRESS OF INTERNAL TEXT BUFFER 1 - SYSUT2 


1 FTXTBFB2 | DS 


A 


ADDREiSS OF INTERNAL TEXT BUFFER 2 - SYSUT2 


IFPRTBUFIJDS 


A 


ADDRESS OF FIRST PRINT BUFFER - PHASE 1/14 


|FPRTBUF2|DS 


A 


ADDRESS OF SECOND PRINT BUFFER - PHASE 1/14 


|FINITBFS|DS 


4A 


INITIAL TEXT BUFFER POINTERS 


IFDICTNDXJDS 


A 


ADDRESS OF DICTIONARY INDEX - PHASE 7/12 


1 FOVFLNDX 1 DS 


A 


ADDRESS OF OVERFLOW INDEX 


|FDICTBLK|DS 


A 


DICT. BLOCK NOW BEING BUILT - PH. lOD/E 


|FOVFLBLK|DS 


A 


OVFL. BLOCK NOW BEING BUILT - PH. lOD/E 


IFDICTNXTJDS 


A 


DICT. ENTRY NEXT TO BE BUILT - PH. lOD/E 


IFOVFLNXTJDS 


A 


OVFL. ENTRY NEXT TO BE BUILT - PH. lOD/14 


IFISNEXI IDS 


F 


ISN OF FIRST EXECUTABLE- PHASE lOD/E 


IFOBJPRCGJDS 


CL6 


NAME OF OBJECT PROGRAM 


IFOBJREGSJDS 


X 


BIT 3, EXTERNAL FUNCTION HAS BEEN CALLED 
BITS 4-7, LOWEST INDEX REGISTER IN OBJ. PROG. 


IFASFCNT IDS 


X 


COUNT OF SF'S IN OBJECT PROGRAM 


1 FDOCOUNT 1 DS 


H 


NUMBER OF DO STATEMENTS 


1 |DS 


H 


SPARE 



(Continued) 
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Table 34. Coitiinunicaticn Area (Continued) 



FCOMSIZE 


EQD 


FDICTBLK 1 


FALSIZE 


EQU 


FDICTBLK+21 


FBLSIZE 


EQU 


FOVFLBLK | 


FBLSTRT 


EQU 


FOVFLBLK+21 


FASFDOBL 


EQU 


FOVFLNXT+21 


FBVSTRT 


EQU 


FDICTNXT 1 


FOBJSTRT 


EQU 


FDICTNXT+21 


FLOCCTR 


EQU 


FISNEXl 1 


FFNCADDR 


EQU 


FDICTBLK+21 


FIBCOM 


EQU 


FOVFLNXT 1 


FOBJERR 


EQU 


FDICTBLK+2 | 


FDECKSEQ 


EQU 


FDICTNDX 1 


FESDSEQ 


EQU 


FDICTNDX+2 1 


FALSTRT 


DS 


F 1 


FDATEMP 


DS 


F 1 


FDEFILCT 


DS 


F 1 


FDIOCS 


EQU 


FDEFILCT 1 


FPATCH 


DS 


2H 1 


FPTCHTBL 


DS 


A 1 


FPTCHPTR 


DS 


A 1 


FSORSYMl 


DS 


A 1 


FS0RSYM2 


DS 


A 1 



I SIZE OF OBJECT PROGRAM COMMON - PH. 12/25 

I SIZE OF OBJ, PROG. ARGUMENT LIST - PH. 15/20 

I SIZE OF OBJ. PROG. BRANCH LIST - PH. 12/25 

|ADDR. OF OBJ. PROG. BRANCH LIST - PH. 12/2 5 

I ADDRESS OF ASF/DO BRANCH LIST - PH. 20/25 

|ADDR. OF OBJ. PROG. BASE VAL. LIST - PH. 12/25 

I STARTING ADDR. OF OBJECT PROGRAM - PH. 12/25 

I LOCATION COUNTER FOR OBJ. PROG. - PH. 12/2 5 

I ADDRESS OF RESULT (FUNCTION S/P) - PH. lU/15 

I ADDRESS OF IBCOM - PHASE 20/25 

I ADDR. OF OBJ. PROG. ERROR RTNE. - PH. 20/2 5 

I OBJECT PROGRAM DECK SEQUENCE NUMBER - PH. 12/25 

I OBJECT PROGRAM ESD SEQUENCE NUMBER - PH. 12/20 

|DSRN ARGUMENT LIST ADDRESS 

I ADDRESS OF DIRECT ACCESS I/O TEMPORARY AREA 

I 'DEFINE FILE' DSRN COUNT - PH. lOD/20 

I ADDRESS OF DIOCS - PH. 20/25 

I BRANCH TO PATCH ROUTINE IN INTERFACE MODULE 

I ADDRESS OF PATCH TABLE 

I PATCH TABLE ENTRY NEXT TO BE POSTED 

(ADDRESS OF SORSYM. TABLE 

ISORSYM TABLE ENTRY NEXT TO BE BUILT 



♦Default values for these coinpiler options may be specified by the user during the 
system generation process via the FORTRAN macro- instruction. The default values are 
assumed if the corresponding parameters in the PARM field of the user's EXEC 
statement are not included. 
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APPENDIX L: SOURCE STATEMENT SCAN 



Phase lOD and Phase lOE convert each 
FORTRAN source statement into a form 
(intermediate text) usable to subsequent 
phases of the compiler. Intermediate text 
is developed by scanning the source state- 
ments from left-to-right and by construct- 
ing one-word intermediate text entries for 
the source text contained in the state- 
ments. 



Phase lOD scans the declarative state- 
ments in the source module, and creates 
intermediate text for those statements. 
When Phase lOD encounters either the first 
statement function or the first executable 
statement, control is passed to Phase lOE 
via the interface module. Phase lOE con- 
tinues the scan of the source module and 
creates intermediate text for statement 
functions and executable statements. 



As source 
entries are ma 
overflow table- 
dictionary and 
the intermediate 
machine language 
phases of the 
is associated wi 
entries by means 
the text entries 



statements are scanned, 

de to the dictionary and 

The information in the 

overflow table supplements 

text in the generation of 

instructions by subsequent 

compiler. This information 

th the intermediate text 

of pointers that reside in 



Each source statement of the source 
module consists of one or more card images. 
To scan source statements, each card image 
of the source module is first read into one 
of two I/O buffers in the print buffer 
module (lEJFAKAO) . The double-buffer 
scheme allows for overlapping the scanning 
of a card image in one buffer with the 
reading of the next card image of the 
source module into the other buffer. If 
the SOURCE option is specified, the I/O 
buffers are used to print a listing of the 
source module. 

In general, the processing of a source 
statement is divided into three operations: 

• Preliminairy scan of the card image (s) 
for the statement. 



PRELIMINARY SCAN 



The preliminary scan first determines 
the address of the end of the source text 
in the card image to be processed. This 
address is obtained by examining the card 
image from right-to- left in groups of four 
bytes. The address of the last blank group 
encountered is used as the ending address 
of the card image. This address is used in 
the reserved word or arithmetic scan of the 
card image and indicates the point at which 
the scan of the card image and the creation 
of intermediate text for the card image is 
to terminate. In the case of the last card 
image for a statement, the ending address 
indicates the end of the statement. 

The preliminary scan then determines the 
type of the card image to be scanned. A 
card image may correspond to the start of a 
FORTRAN statement, the continuation of a 
FORTRAN statement, or a user's comment. 

If the card image corresponds to the 
start of a FORTRAN statement, a unique 
internal statement number is assigned to 
the statement. This number is placed in 
front of the card image in the buffer 
containing that card image. Control is 
then passed to the classification scan. 

If the card image corresponds to a 
continuation of a FORTRAN statement, a new 
internal statement number is not assigned. 
Control is immediately passed to the clas- 
sification scan. 

If the card image corresponds to a 
user's comment, no further processing is 
required. The next card image of the 
source module is read into the buffer that 
contained the comments card image. The 
address of the other buffer (previously 
filled) is obtained from the communication 
area, and scanning starts for the card 
image in that buffer. 

In each case, if the SOURCE option is 
specified the buffer containing the card 
image is first written onto the SYSPRINT 
data set before any further processing. 



Classification scan of the 
image for the statement. 



first card 



Reserved word or arithmetic scan of the 
card image (s) for the statement, which 
scans the source text of the statement. 
(The reserved word or arithmetic scan 
also creates intermediate text.) 



CLASSIFICATION SCAN 



The classification scan determines the 
type (arithmetic or reserved word) of the 
FORTRAN statement to be processed. The 
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first action taken by the classification 
scan is to determine if a statement number 
defines the statement under consideration. 
If a statement number is associated with 
the statement, an overflow table entry for 
that statement number is created. 

The next item of the source statement is 
then obtained. If the item is a symbol, 
control is passed to a routine that scans 
arithmetic statements. If the item is a 
reserved word (e.g., READ), control is 
passed to the appropriate reserved word 
routine. The arithmetic or reserved word 
routine controls the scanning of the 
remainder of the statement, and creates 
intermediate text for the statement. 

If the item is neither a symbol nor a 
reserved word, the source statement in 
question is invalid. Processing of that 
statement is terminated, and processing of 
the next statement of the source module 
begins- 



RESERVED WORD OR ARITHMETIC SCAN 



The main function of the reserved word 
or arithmetic scan is to scan the card 
image (s) for each statement of the source 
module. During this scan, dictionary and 
overflow table entries are constructed, and 
intermediate text entries are created. In 
addition, each statement is examined for 
correct use of the FORTRAN IV (E) language. 

The reserved word or arithmetic scan is 
performed by either a reserved word routine 
or the arithmetic routine. A reserved word 
routine exists for each of the reserved 
word source statements. Certain reserved 
word routines, namely those that process 
statements that may contain arithmetic 
expressions (e.g., IF and CALL statements) 
and those that process statements that 
contain I/O lists (e.g., READ and WRITE 
statements) pass control to the arithmetic 
routine to complete the scanning of the 
associated reserved word statements. 

When the appropriate reserved word rou- 
tine or the arithmetic routine receives 
control, a left-to-right scan of the cur- 
rent card image is then initiated. The 
first operand of the card image is 
obtained,, and a check is made to determine 
if a dictionary or overflow table entry has 
previously been created for the operand. 
If an entry has not been created, a dic- 
tionary or overflow table entry (depending 
on the operand) is created and entered in 
the appropriate resident table. Scanning 
is resumed and the first operator of the 
card image is obtained. 



The intermediate text for each card 
image is developed by constructing inter- 
mediate text entries for operator-operand 
pairs as they are scanned by a reserved 
word routine or the arithmetic routine. In 
this context, operator refers to commas, 
parentheses, etc. , as well as to arithmetic 
operations (e.g., + and -). Operand refers 
to variables, constants, statement numbers, 
data set reference numbers, etc. , that are 
operated on. 



The procedure of: (1) scanning operators 
and operands, (2) constructing dictionary 
or overflow table entries when necessary 
for the operands, and (3) developing inter- 
mediate text entries for the operator- 
operand pairs is repeated until the end of 
the card image is recognized by the re- 
served word or arithmetic scan. 

When the address indicating the end of 
the card image is recognized by the re- 
served word or arithmetic scan, the next 
card image of the source module is read 
into the buffer that contained the card 
image just processed. The address of the 
other buffer (previously filled) is 
obtained from the communication area, and 
processing starts for the card image in 
that buffer. 

When an entire source statement has been 
scanned, a special intermediate text entry 
indicating the end of the intermediate text 
representation for a given statement is 
generated and then written onto an inter- 
mediate storage data set at the end of the 
intermediate text representation for the 
statement. This special text entry con- 
tains the internal statement number 
assigned to the statement by the prelimi- 
nary scan section. 

During the reserved word or arithmetic 
scan, each card image is examined for 
proper use of the FORTRAN IV (E) language. 
The format of the card image is checked to 
see if the statement associated with the 
card image has been coded properly by the 
source programmer. 

If a serious error is encountered, scan- 
ning of the statement associated with the 
card image is terminated. An intermediate 
text word indicating the end of the inter- 
mediate text representation for the state- 
ment is generated and then written onto an 
intermiediate storage data set. This text 
word also indicates that an error was 
encountered in the processing of the state- 
ment. An intermediate text word, rep- 
resenting the error, which contains a num- 
ber corresponding to the specific error 
detected, is generated and then written 
onto the intermediate storage data set at 
the end of the intermediate text represen- 
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taticn for the statement in which the error 
was detected. 

If an error is encountered that is not 
serious enough to terminate the scan of a 
statement, an intermediate text word rep- 
resenting a warning is generated. This 
word is saved and scanning is resumed. 
When the scan of the statement is terminat- 
ed (either when the end of the statement is 
recognized or when a serious error is 
encountered) , the warning text word is 
written onto the intermediate storage data 
set immediately following the text word 
that indicates the end of the intermediate 



text representation for the statement and 
any intermediate text words generated for 
serious errors. (A maximum of four warning 
text words per statement may be saved and 
then written onto the intermediate storage 
data set. If more than four warning condi- 
tions are encountered, an intermediate text 
word representing an error is generated and 
scanning of the statement is terminated.) 

The source statem.ent scan for the fol- 
lowing READ statement is illustrated in 
Chart 19. 

READ (5,10) A,B(1),(C(I),I=1,10) ,D 
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Chart 19. READ Statement Scan Logic 
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a(xxxx) ; Indicates the address of the sym- 
hol within parentheses, 

adjective code field : A field of an inter- 
ir.ediate text entry that contains either an 
adjective code assigned by the coitipiler or 
an actual machine operation code. 

allocation table ; Used in Phase 7 to deter- 
mine the amount of additional irain storage 
required by the compiler. 

argument list ; A list containing the 
addresses of arguments constructed when an 
adjective code indicating a call to a 
subprogram, or statement function is detect- 
ed. 

argument list table : Used at object-time to 
provide the starting address of the argu- 
ment list for each subprogram or statement 
function called. 

base value table : Used at object-time to 
obtain base register values. 



BLDL 



table ; Provides information necessary 

to 



for transferring control from one phase 
the next for PRFRM compilations. 



blocking table ; Provides information neces- 
sary to deblock compiler input and to block 
compiler output for PRFRM compilations. 

bound variable ; An integer variable in a 
subscript expression that is redefined. 



EXTERNAL, FORMAT, and SUBROUTINE or FUNC- 
TION. 

dictionary ; A resident table of the compil- 
er used to store information about symbols 
used in the source statements. For PRFRM 
compilations, the dictionary resides in 
main storage throughout the compilation; 
for SPACE compilations, the dictionary 
resides in main storage only through Phase 
lU. 

dictionary index ; Consists of pointers to 
the first entries in the various chains 
that constitute the dictionary. 

end-cf-statement indicator ; An adjective 
code that signals the end of a particular 
statement to a processing phase. 

epilog table : Used during Phase 25 when 
generating the instructions that return the 
value of variables used as parameters to 
the calling program. 

EQUIVALENCE table ; Used by the routines 
that assign addresses for EQUIVALENCE 
entries. 

EQUIVALENCE text ; An internal format used 
to transmiit the information in an EQUIVAL- 
ENCE source statement to Phase 12. 

error; Incorrect usage of the FORTRAN lan- 
guage that may force the end of compila- 
tion. 



branch list table for SFs and DOs ; Used at ESP card image ; A card image containing an 

external symbol that is defined or referred 
to in the source module. 

executable statement ; A statement that 
causes the compiler to generate machine 
instructions. 

flush; A compile time I/O request that 
forces the current output buffer being used 
for a blocked output data set to be writ- 
ten. 

forcing value ; A value that indicates an 
operator's relative position in the hierar- 
chy of operators. 

forcing value table ; Used during Phase 15 
processing to aid in the reordering of 
interm,ediate text entries for arithmetic 
expressions. 

hierarchy of operators ; Defines the order 
in which operations must be performed in an 
arithmetic expression. 



object-time either by the instructions gen- 
erated to reference SF expansions or by the 
instructions generated to control the iter- 
ation of DO loops. 

branch list table for referenced statement 

numbers ; Used at object-time by the 

instructions generated to branch to execu- 
table statemients . 

CDL; A portion of the array displacement 
for subscripted variables. 

COMMON text : An internal format used to 
transmit the information in a COMMON source 
statement to Phase 12. 

communication area ; A central gathering 
area used to communicate information 
between the various phases of the compiler. 

declarative statement ; Any one of the fol- 
lowing statements; COMMON, DIMENSION, EQUI- 
VALENCE, INTEGER, REAL, DOUBLE PRECISION, 
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interface module ; The coitimuni cat ions link 
between the coirpiler and the operating 
system. 



index mapping table : Used during Phase 20 
processing of subscript expressions to 
maintain a record of all information perti^' 
nent to the subscript expression. 

interlude: A compiler component that closes 
and then reopens the various data sets used 
by the compiler for SPACE compilations. 
(Interludes do not perform source statement 
processing. ) 

intermediate text ; An internal representa- 
tion of the source statements that may 
eventually be converted to machine language 
instructions . 



internal 



statement number: 



h number 

assigned to each FORTRAN statement by the 
compiler. 



variable used in a READ or 



list item ; 
WRITE statement. 



load module ; The output of the linkage 
editor; a program in a format suitable for 
loading into m.ain storage for execution. 

location counter ; A counter used to assign 
addresses. 

message address table : Used during Phase 30 
to aid in the generation of error and 
warning messages . 

message length table : Used during Phase 30 
to aid in the generation of error and 
warning messages. 

message text table ; Used during Phase 30 to 
aid in the generation of error and warning 
messages . 

m.ode/type code field : A field used in the 
dictionary and intermediate text denoting 
the mode (real, integer, or double 
precision) and type (variable, array, func- 
tion or constant) of a symbol. 

object m,odule : The output of a single 

execution of an assembler or compiler, 

which constitutes input to the linkage 
editor. 

offset ; A calculated indexing factor used 
to find the correct element in an array for 
a particular subscript expression. 

operations table ; A temporary storage area 
used during Phase 15 processing in the 
reordering of intermediate text entries for 
arithmetic expressions. 

overflow table : A resident table that con- 
tains all dimension, subscript, and state- 



ment number information within the source 
module being compiled. 

overflow table index ; Consists of pointers 
to the first entries in the various chains 
that constitute the overflow table. 

p(xxxx) ; Indicates a pointer to the infor- 
mation (within the parentheses) as rep- 
resented in the dictionary or the overflow 
table. 

patch table ; Used to contain patch records 
if the patch facility has been enabled and 
if patch records precede the FORTRAN source 
module to be compiled. 

performance m.odule ; Processes compiler I/O 
and end-of-phase requests for 
The performance module 
table and the 



requests 

PRFRN compilations. 

also contains the blocking 

BLDI table. 



phase ; Perform.s compiler initialization or 
actual source statement processing. 

pointer field : The last two bytes of an 
intermediate text word. It normally con- 
tains a relative pointer to a dictionary or 
overflow table entry. 



print buffer miodule ; Contains two I/O 
fers for SYSIN and SYSPPINT. 



buf- 



resident table : A table that remains in 
main storage throughout an entire compila- 
tion or throughout a part of a compilation. 
(The dictionary is resident only up to the 
end of Phase 14 for SPACE compilations.) 

RLD card image ; Contains information about 
an address constant used in the object 
module. 

routine displacement tables ; Aid in the 
location of reserved word processing rou- 
tines in Phases lOD and lOE. 

SEGMAL; A resident table that contains the 
beginning and ending address of each seg- 
ment of main storage assigned to the dic- 
tionary and overflow table by Phase 7. 

SF number ; Assigned to each SF definition 
encountered by Phase 14. 

source module ; A series of statements in 
the symbolic language of an assembler or 
compiler, which constitutes the entire 
input to a single execution of an assembler 
or ccmipiler. 

subscript table ; Temporary storage area 
used for subscript text encountered during 
the reordering of inteimediate text words 
by Phase 15. 

subscript optimization ; The process of 
replacing the computation of a subscript 
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expression at each recurrence with a ref- 
erence to its initial computation (that is, 
to the register assigned to contain the 
result of its initial coir.putation) . 

SYSTN data set ; The source module, which is 
used as input to the ccirpiler. 

SYSLIN data set ; The object irodule in card 
iirage foriti (if the LOAD option is 
specified) . 

SYSUTl data set ; Used as a work data set by 
the compiler to contain intermediate text. 

SYSUT2 data set ; Used as a work data set by 
the compiler to contain intermediate text. 

SYSPRINT data set ; The source module list- 
ing (if the SOURCE option was specified) ; a 
storage map (if the WAP option was 
specified) ; and a list of error and warning 
messages (if any). 

SYSPUNCH data set ; The object module in 
card image form (if the DECK option was 
specified) . 



SYSl.FORTLIB ; A partitioned data set that 
contains FORTRAN subprograms (including 
IHCFCOME and IHCFIOSH in the form of load 
modules. 



SYS1.IINKLI3 ; A partitioned data set that 
contains executable load modules, which can 
be reached via the XCTL, ATTACH, LINK, and 
LOAD functions. The FORTRAN IV (E) compil- 
er resides on the SYSl.LINKLIB. 



TXT card image ; A card image containing 
either an instruction of the object module 
or data used in the object module. 

unit assignment table ; Used by IHCFIOSH 
during processing of execution-time I/O 
requests. 

unit blocks ; Used by IHCFIOSH during proc- 
essing of exection time I/O requests. 

warning ; Incorrect usage of the FORTRAN 
language that is not serious enough to 
prevent execution cf the object module. 
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INDEX 



ABS in-line function 

compile time, processing of 33-34 
Address assignment 27-28 
Address constant 13 
Adjective code 

definition of 92-93 

forcing values of 32-33,78 

replacement of 32-33,100-101 
Adjective code field 

in intermediate text 92-93 
Allocation of storage 

for argument list table 37 

fcr branch list tables 28-29,3 5 

for compiler 22-23,88-90,137-139 
Allocation table 76 
AOP adjective code 

in intermediate text 10 3 
Argument list count 31,37 
Argument list table 

format of 108 

generation of 37 

use of 108 
Argument list table entry 

generation of RLD and TXT card images 
for 37 
Argument lists 

creation of 34 
Arithmetic expressions 

generation of instructions for 38 

processing of 32-34,135 

reordering of 32-33,101-102 
Arithmetic scan 

of source statements 144-14 5 
Arithmetic- type interruptions 

object-time processing of 116 
Array displacement 

definition of 104 

computation of 104-106 
Array element 104-106 
Array I/O list items 

object-time processing of 110-113 
Arrays 

compile-time processing of 

28,31,36,104-106 
Assignment 

of registers 33-34,100-101 
of relative addresses 27-28 
of storage to the compiler 
22-23,88-90,137-139 

BACKSPACE statement 

compile time processing of 31,135 

object-time implementation of 115,125 
Base-displacement address 

definition of 27-28 
Base registers 39 
Base value table 

format of 108 

generation of 39 

generation of RLD and TXT card images 
for 40 

object-time use of 39,108 



Basic sequential access method 

coirpile-time use of 7 

object-time use of 109 
Batch compilations 

processing of 17,21 
BLDL macro-instruction 

compile-time use of 24,91 
BLDL table 

construction of 2 4,91 

format of 91 

in performance module 20 

use of 91 
Block/deblock I/O buffers 

allocation of main storage for 22-23 

use of 19 
Blocking table 

ccnstruction of 23-24,91 

format of 91 

in performance module 20 

use of 91 
Bound variable 

definition of 36 

subscript optimization processing of 
36-37 
Branch list table for referenced statement 
numbers 

allocation of storage for 28-29 

format of 107 

generation of 28-29 

object-time use of 107 
Branch list table for statement function 
expansions and DO statements 

allocation of storage for 35 

format of 107 

generation of 39 

object-time use of 107 
BSAM 

(see basic sequential access method) 
BSP macro-instruction 

object-tim.e use of 125 
Buffers 

compile-time use of 11,18,137,143 

for blocked I/O 19,22-23 

object-time use of 123-125 
Build table 

(see BLDL table) 

CALL statement 

compile-time processing of 32,135,144 
Card image generation 13,29-30,35,37-38,40 
Card images 

END 13,40 

ESD 13,29,35 

RID 13,29,35,40 

TXT 13,29-30,35,38,40 
CDL 

calculation of 10 6 

definition of 105 

generation of literals for 36 
Chain address field 

in dictionary 84 

in overflow table 87-88 
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Chaining 

in dictionary 81-83 

in overflow table 86-88 
CHECK macro- instruction 

compile-time use of 44 

otject-time use of 116,124-125 
Classification scan 

of source statements 143-144 
CLOSE macro- instruct ion 

compile-time use of 15-16,21,74-75 

object-time use of 125 
CLOSE macro-instruction, tyFe=T 

ccmpile-time use of 44,130 
Comments card image 

scanning of 133 
COMMON intermediate text 

creation of 24 

format of 9 6 
COMMON statement 

compile-time processing of 
24-25,27-28,135 
Communication area 

definition of 9 

format of 140-142 

in interface module 17-18 
Compilation 

data sets used for 11-12 

PKFRM 9 

SPACE 9 
Compilation input 

deblocking of 19 
Compilation output 

blocking of 19 
Compiler 

components of 7-8,13-16 

control flow in 9-10 

data sets used by 11-12 

input/output requests of 7,130-131 

input to 11-12 

main storage allocation to 
22-23,78,137-139 

organization of 7 

output from 11-13 

relation to operating system 7 

system macro- instructions used by 7 

tables used by 76-80,81-91 
Compile-time I/O errors 

processing of 44 
Computation 

array displacement 104-106 

subscript 34-36 
Computed GO TO statement 

compile-time processing of 
31,35,39,99,135 
Constants 

address 13 

assignment of relative addresses to 
27-28 

dictionary entries for 26 

double-precision 28 
Construction of resident tables 

BLDL table 2 4 

blocking table 23-24 

dictionary 23,25-26,81-83 

overflow table 23,25-26,86 

patch table 23,90 

SEGMAL 23,88-89 
Continuation card image 



scanning of 143 
CONTINUE statement 

conipile-time processing of 135 
Control block, data 

(see data control block) 
Control block, data event 

(see data event control block) 
Control codes 

(see format codes) 
Control flow 

for PRFRM ccirpilaticns 9-10 

fcr SPACE ccmpilaticns 9-10 
Control operations routine 

definition of 18 

in interface module 18,44 
Conversion 

of I/O list items 110,112 

of source statements 24,26,92 
Conversion codes 

(see format codes) 
Conversion routines 

in IHCFCOME 110,112 
Counter, location 

relative address assignment use of 28 

DABS in-line function 

compile-time processing of 33-34 
Data control blocks 

compile-time manipulation of 
15-16,20-21,42,73-75,130 

object-time use of 121,123-126 
Data control block skeleton section 

in unit blocks 122-123 
Data definition (DD) statement 7,121 
Data event control block 

compile-time use of 18 

object-time use of 123 
Data event control block skeleton section 

in unit blocks 122-123 
Data flow 

compiler detail 12 

compiler overall 11 

Phase lOD 25 

Phase lOE 26 

Phase 12 27 

Phase 14 30 

Phase 15 32 

Phase 20 35 

Phase 25 38 

Phase 30 40 
Data set reference numbers 

compile-time processing of 26,29,30,81 

object-time creation of unit blocks for 
122 
Data sets 

for compiler input 11-12 

fcr compiler output 11-12 

manipulation of data control blocks for 
73-75 

object-time initialization of 123-124 
DELE in-line function 

compile-time processing of 33 
DCB 

(see data control block) 
DCB skeleton section 

(see data control block skeleton 
section) 
DECB 
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(see data event control block) 
DECB skeleton section 

(see data event control block skeleton 
section) 
DECK option 

compiler output for 11 
Declarative statements 

definition of 24 

intermediate text for 24,92 
Default values 

for compiler options 17 

object-time insertion of into DCB 
skeletons 122-123 

system generation specification of 
17,142 
DELETE macro-instruction 

ccmpile-time use of 21 
Delete routine 

in Phase 7 21,46 
Device manipulation 

object-time routines for 115-116,119 
DFLOAT in-line function 

compile-time processing of 33-34 
Diagnostic messages 

compiler informative 132 

error/warning 132-134 

generation of 40 
Dictionary 

chaining in 81-82 

definition of 9 

entry format 83 

freeing of main storage for 56,81 

index 82 

organization of 81 
Dictionary pointers 

replacement of 31,97 
Dimension entry 

in overflow table 87 
Dimension information 

array displacement use of 104-106 
Dimension part 104-106 
Dimension section 104-106 
DIMENSION Statement 

compile-time processing of 24,135 
Displacement 

base 27-28 

in arrays 104-106 
Displacement tables 

(see routine displacement tables) 
DO statement 

compile-time processing of 
31,34-36,39,135 
Double argument in-line functions 

compile-time processing of 33-34 
Double-precision constants 

assignment of relative addresses for 28 
DOUBLE PRECISION Statement 

compile-time processing of 24,135 
DSRN 

(see data set reference number) 
Dummy subscripted variables 

subscript optimization processing of 36 

Editor 

(see linkage editor) 
Element 

in arrays 104-106 
END card image 



generation of 40 

in object module 13 
End DO adjective code 

insertion of into inteinnediate text 
31,98 
ENDFIIE statement 

ccirpile-tiir>e processing of 31,135 

cfcject-time implementation of 115,119 
End irark 

in intermediate text 33,93 
End-of-FORMAT-statement indicator 

object-time encounter of 110,112 
End-cf-logical-reccrd indicator 

object-time encounter of 113 
End-of-object module indicator 

generation of 40 

in object module 13 
End-of-phase requests 

compile-time processing of 
7,18,44,130-131 
End-cf-phase routine 

in interface module 18,44 

in performance module 20,45 
End-cf-statement indicator 

(see end mark) 
END statement 

ccmpile-time processing of 40,135 
Epilog table 

generation of 38 

format of 8 

use of 80 
EQUIVALENCE claSS 28 
EQUIVALENCE group 28 
EQUIVALENCE intermediate text 

creation of 2 4 

format of 96 
EQUIVALENCE root 28 
EQUIVALENCE Statement 

ccmpile-time processing of 24,28,135 
EQUIVALENCE table 77-78 
Error intermediate text entry 

generation of 25-26,34,144-145 
Error messages 

compile-time generation of 40,132-134 

object-timie generation of 116,127 
Error recovery procedures, I/O 

com.pile-time 44 

cbject-time 127 
Errors, source statement 

intermediate text for 25-26,34,144-145 

messages for 40,132-134 
ESD 

(see external symbol dictionary) 
ESD card images 

generation of 13,29,35 

in object miodule 13 
Executable statements 

definition of 24 

generation of intermediate text for 
25-26,92 
Execute (EXEC) statement 7,17,19 
External functions 

(see library subprograms) 
External references 

generation of ESD and RLD card images 
for 29,35 
EXTERNAL Statement 
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compile-time processing of 24,135 
External symbol dictionary 13 

Files 

(see data sets) 
FLOAT in-line function 

compile-time processing of 33-3U 
Flush requests 

definition of 19 

performance module processing of 21, U 5 
Forcing value 

definition of 32 

use of 32-33 
Forcing value table 78 
Format codes 

compile-time processing of 30,58 

object-time processing of 110-112 
FORMAT intermediate text 

format of 95 

generation of 2U,25,92 
FORMAT statement 

compile-time processing of 
24-25,30,58,135 

object-time processing of 110-112 
FREEMAIN macro-instruction 

compile-time use of 21-23 
FREEPOOL macro-instruction 

object-time use of 125 
Function calls 

compile-time processing of 32-34,135 
FUNCTION statement 

compile-time processing of 24,38,135 

GETMAIN macro-instruction 

compile-time use of 22-'23,88 

object-time use of 122 
GO TO statement 

compile-time processing of 31,37,39,135 

Hierarchy of operators 32,78,101-102 

lABS in-line function 

compile-time processing of 33-34 
IF statement 

compile-time processing of 
32,34,36,39,135,144 

error checking for 34 

intermediate text for 93 
IFIX in-line function 

compile-time processing of 33-34 
IHCCGOTO library subprogram 35 
IHCFCOME library subprogram 

closing section of 113 

format scan of 110-112 

function of 109 

generation of calling sequences to 109 

I/O device manipulation routines of 115 

I/O list section of 110,112-113 

opening section of 109-110 

overall logic of 117 

read/write routines of 109-115 

utility routines of 116 

write-to-operator routines of 115-116 
IHCFIOSH library subprogram 

buffering scheme of 123 

closing section of 125 

communication with control program 123 

device manipulation section of 125 



functions of 121 

initialization section of 123-124 

I/O error processing of 125,127 

overall logic of 126 

read section of 124 

routines of 128 

table and blocks used in 121-123 

write section of 124-125 
IHCIEERR 

functions of 128 

generation of calling sequences to 35 

overall logic of 129 
Images 

(see card images) 
Iirmediate DO parameter 

insertion of into intermediate text 
98,146 
Implied DOs 

checking of READ/WRITE statements for 
31,98 

insertion of adjective codes 31,98 
Index 

in dictionary 23,81-82 

in overflow table 23,81,86 
Index mapping table 

format of 79 

use of 38,79 
In-line functions 

compile-tiire processing of 
33-34,101,135 
Input/output buffers 

(see buffers) 
Input/output data sets 

(see data sets) 
Instruction generation 38 
Integer constants 

assignment of relative addresses to 27 
INTEGER statement 

compile-time processing of 24,135 
Interface module 

components of 17-18,44 

functions of 7 

linkages to 130-131 

loaded into main storage 17 
Interface module routines 18,44 
Interlude 

definition of 9 
Interlude lOE 

functions of 15 
Interlude 14 

functions of 15 
Interlude 15 

functions of 16 
Intermediate text 

adjective code field 92-93 

COMMON intermediate text 96 

creation of 24,26,92 

definition of 9 

EQUIVALENCE intermediate text 96 

FORMAT intermediate text 95 

mode/type code field 93 

modification of 32-33,97-103 

pointer field 93 

reordering of 32-33,101-102 

subscript intermediate text 95,102-103 

use of 9 
Internal statement number 

compiler assigning of 93,128,143 
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Internal text 

(see intermediate text) 
Interruptions, arithmetic 

object-time processing of 116 
I/O error recovery procedure 

compile- time 44 

object-time 127 
I/O list items 

object-time processing of 110-112 
I/O requests 

compile-time processing of 
7,18,44,130-131 
I/O routine 

in interface module 18,44 

in performance module 19-20,45 
I/O statements 

object-time implementation of 109-127 
ISN 

(see internal statement number) 

Job (JOB) statement 7 

Library exponentiation subprograms 

assignment of registers for 33 

generation of ESD card images for 35 
Library subprograms 

generation of ESD card images for 29,35 

IHCCGOTO 35 

IHCFCOME 109-120 

IHCFIOSH 121-127 

IHCIBERR 128-129 
Linkage editor 

processing of the object module 13 
Linkage parameters 129 
Linkages to interface module 7,130-131 
Linkages to performance module 132 
List items 

(see I/O list items) 
Literals 

generation of 36 

generation of TXT and RLD card images 
for 35 
LOAD macro-instruction 

compile-time use of 17,19-20 
LOAD option 

compiler output for 11-12. 
Loading modules 17,19-20,37 
Location counter 

used in assigning relative addresses 28 

Wachine language instructions 

generation of 37-38 
Macro-instructions 

(see system macro-instructions) 
Main storage allocation 

for branch list tables 29,35 

for compiler 22-23,137-139 
Manipulation 

of compile-time data sets 73-75 

of object-time I/O devices 115,125 
MAP option 

compiler output for 11-12 
Mask, program interrupt 

object-time setting of 116 
Message address table 80 
Message length table 80 
Message text table 80 
Messages 



compile-time generation of 40,132-134 

object-time generation of 116,128 
Mode/type field 

in dictionary 84 

in intermediate text 93 
Modification of compiler modules 18 
Modification of intermediate text 

for arithmetic expressions 32-34,97-103 

for computed GO TO statements 99 

for READ/WRITE Statements 98 

for RETURN statements 99 

NOLOAD option 10,35,40 
Nonexecutable statements 

(see declarative statements) 

Object listing facility 

enabling of 19 
Object listing module 19 
Object listing option 

compiler output for 11 

compiler processing for 19,27,37 
object module 

components of 13 

creation of 13 
Object module instructions 

generation of 37-38 
Object module tables 107-108 
Object program 

(see object module) 
Object-time error messages 

generation of 116,128 
Object-time I/O errors 

processing of 125,127 
Offset 

computation of 26,104-106 

generation of literal for 36 
1-dimensional array 

array displacement computation of 
104-106 

overflow .table entry for 87 
Opening 

of data control blocks at compile-time 
20-21,73-75 

of data control blocks at object-time 
123-124 
OPEN macro- instruction 

compile-time use of 20-21,73-75 

object-time use of 110,123-124 
Operands 

source statement scan of 144-145 
Operations table 

format of 79 

use of 78 
Operators 

source statement scan of 144-145 
Optimization, subscript 34-36 
Overflow table 

chaining in 8 6 

definition of 9 

entry formats in 87-88 

index for 23,81,8 6 

organization of 86 

Patch facility 

enabling of 23 
Patch requests 

compile-time processing of 18,44,131 
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Patch routine 

functions of 18 

in interface rrodule 18,44 
Patch table 

format of 90 

use of 18,90 
PAUSE statement 

compile-time processing of 31,136 

object-time implementation of 116 
Performance module 

components of 19-20 

functions of 19 

linkages to 131 

loaded into main storage 19 
Performance module routines 19-20 
Perf03rmance module tables 20,91 
Pointer field 

in intermediate text 93 
Preliminary scan 

of source statements 143 
PRFRM compilations 

blocking compiler output for 19 

control flow for 9-10 

data control block manipulation for 
73,75 

deblocking compiler input for 19 

linkages to performance module for 131 

main storage allocation for 22-23,139 

obtaining main storage for 21-22,139 

opening data control blocks for 20 

restart condition for 21,23 
Print buffer module 

functions of 19 

loaded into main storage 19 

used in source statement scan 143 
Print control operation requests 

compile-time processing of 18,131 

READ macro- instruction 

compile-time use of 7,44,73-75 

object-time use of 110-112,124,126 
READ statement 

compile-time processing of 
30-31,36,92,98,136,146 

object-time implementation of 
10 9-114,118,123-124,126 
Real constants 

assignment of relative addresses for 27 

dictionary chain for 81 
REAL statement 

compile-time processing of 24,136 
Recovery procedure, I/O error 

compile-time 44 

object-time 125,127 
Redefinition of integer variables 

in subscript expressions 36-37 
Referenced statement numbers 

branch list table for 107 
References, external 

generation of ESD card images for 29,35 
Registers 

assignment of 33-34,100-101 

base 27-28,3 9 
Relative addresses 

assignment of 27-28 
Relocation dictionary 13 
Removing entries from chains 

in dictionary 83 



Reordering of intermediate text 

for arithmetic expressions 
32-33,101-102 

for computed GO TO statements 31,99 

for READ/WRITE Statements 30-31,92,98 
Replacement of dictionary pointers 31,97 
Reserved word 

dictionary section 23,76,81 

source statement scan 144-145 
Reserved word scan 

of source statements 144-145 
Resident tables 

BLDL table 20,24, 91 

blocking table 20,23-24,91 

dictionary 81-85 

overflow table 81,86-88 

patch table 9 

SEGMAL 81,88-89 
Resident table construction 

BLDL table 24 

blocking table 23-24 

dictionary 23,25-26 

overflow table 23,25-26 

patch table 18 

SEG^5AL 23 
Restart condition 

definition of 21 

processing for 21,23 
RETURN macro-instructicn 

compile-time use of 7,10 
RETURN Statement 

compile-time processing of 31,38,99,136 
REWIND Statement 

compile-tiiTie processing of 31,136 

object-time implementation 115,119,125 
RLD 

(see relocation dictionary) 
RLD card images 

generation of 29,35,40 
Routine displacement tables 

format of 77 

use of 76 

SAOP adjective code 

in intermediate text 102 
Scan 

of source statements 143-145 
SEGMAL 

construction of 23 

format of 89 

use of 88 
SF 

(see statement functions) 
Single-argument in-line functions 

compile-time processing of 33-34 
SNGL in-line function 

compile-time processing of 33 
Source module 

input to coirpiler 11-12 
Source module listing 11-12,24,26 
SOURCE option 

compiler output for 11-12 
Source program 

(see source module) 
Source statement scan 143-146 
Source symbol irodule 19 
SPACE compilations 

control flow for 9-10 
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data control block iranipulation for 
73-74 

linkages to interface module for 
130-131 

main storage allocation for 22,137-138 

obtaining main storage for 
21-22,137-138 

opening data control blocks for 
20,73-74 
SPIE macro-instruction 

object-time use of 116 
Statement function numbers 

assignment of 31 
Statement functions 

compile-time processing of 
26,31,32,39,108,135 
Statement number definitions 

compile-time processing of 39,135 
Statement numbers 

overflow table entries for 25-26,88 
Statement processing, compile-time 

BACKSPACE 31,135 

CALL 32,135,144 

COMMON 24-25,27-28,135 

CONTINUE 135 

DIMENSION 24,135 

DO 31,34-36,39,135 

DOUBLE-PRECISION 24,135 

END 40,135 

ENDFILE 31,135 

E QUI VALENCE 24,28,135 

EXTERNAL 24,135 

FORMAT 24-25,30,58,135 

FUNCTION 24,38,135 

GO TO 31,37,39,135 

IF 32,34,36,39,135,144 

INTEGER 24,135 

PAUSE 31,136 

READ 30-31,36,92,98,136,146 

REAL 24,136 

RETURN 31,38,99,136 

REWIND 31,13 6 

STOP 31,136 

SUBROUTINE 24,136 

WRITE 30-31,92,98,136 
Statement processing, object-time 

BACKSPACE 115,125 

ENDFILE 115,, 119 

FORMAT 110-112, 

PAUSE 116 

READ 109-114,118,123-124,126 

REWIND 115,119,125 

STOP 115-116,119 

WRITE 109-115,118,123-126 
STOP statement 

compile-time processing of 31,136 

object-time implementation of 
115-116,119 
Storage allocation 

(see main storage allocation) 
Storage allocation schematics 

for PRFRM compilations 139 

for SPACE compilations 137-138 
Storage map 

for assigned relative addresses 27 

for generated literals 35 

for implied external references 35 

for referenced statement numbers 37 



Subprograms 

address constants for 13 

argument lists for 37 

epilog table for 38,80 

ESD card images for 29,35 
SUBROUTINE Statement 

compile-time processing of 24,136 
Subscript expressions 

computation of 10 4-106 

optimization of 34-36 

overflow table entries for 87-88 
Subscript intermiediate text 

ACP adjective code 103 

SAOP adjective code 102-103 

XOP adjective code 103 
Subscript optimization 

statements subject to 34-36,66 

statements that affect 36-37,66 
Subscript table 79 
Symbols 

assignment of addresses for 27 

dictionary entries for 25 

validity check for 30-31 
SYS IN 

input data set for compiler 11-12 

manipulation of 26,73-75 

opening of data control block for 
19,73-75 
SYSIIN 

manipulation of 2 6,73-75 

output data set for compiler 11-12 
SYSPRINT 

manipulation of 26,73-75 

opening of data control block for 
19,73-75 

output data set for compiler 11-12 
SYSPUNCH 

manipulation of 73-75 

output data set for compiler 11-12 
System macro-instructions 

used by compiler 7 
SYSUTl 

manipulation of 26,73-75 

opening of data control block for 
19,73-75 

overlaying of DCB block size for 18 

work data set for compiler 11-12 

SYSUT2 

manipulation of 73-75 
opening of data control block for 19 
overlaying of DCB block size for 18 
work data set for compiler 11-12 

Tables 

allocation 76 
argument list 108 
base value 10 8 
BLDL 91 
blocking 91 
branch list 107 
dictionary 81-85 
epilog 80 
equivalence 77-78 
forcing value 78 
index mapping 79 
message address 8 
message length 80 
message text 80 



Index 157 



Y28-6601-1 



operations 7 8-79 

overflow 81,86-88 

patch 90 

resident 81-91 

routine displacement 76-71 

SEGMAL 88-89 

subscript 79 

unit assignment 121-122 

used by compiler 76-80 

used by object module 107-108 
Termination of compilation 

abnormal 44 

normal 21,44 
Termination of load module execution 

116,127-128 
Text 

(see intermediate text) 
3-dimensional array 

array displacement computation of 
104-106 

overflow table entry for 87 
TXT card image 

generation of 29-30,35,38,40 

in object module 13 
2-dimensional array 

array displacement computation of 
104-106 

overflow table entry for 87 

Unit assignment table 121 
Unit blocks 

construction of 122 

format of 122 

sections 122-123 

use of 121-122 
Unit number 

(see data set reference number) 



Unit tables 

(see unit blocks) 



Variables 

assignment of relative addresses for 27 
dictionary entries for 25-26 
subscripted 32-33,36-37,79,87-88,95 

Warning 

definition of 145 
Warning miessages 

generation of 40,92,145 
Work data sets 

for compiler 11-12 
WRITE macro- instruction 

ccmpile-time use of 7,44,73-75 

object-time use of 111-113,126 
WRITE statement 

coirpile-time processing of 
30-31,92,98,136 

object-time implementation of 
109-115,118,123-126 

reordering of intermediate text for 
92,98 
Write-to-operator routines 115-116,119 
WTO iracrc-instruction 

object-time use of 116 

XCTL macro- instruction 

ccmpile-time use of 7,18-19,44-45 
XOP adjective code 

in intermediate text 102 

Zero-addressing scheme 

used in array displacement computation 
104-106 
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